Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!ames!ucsd!swrinde!zaphod.mps.ohio-state.edu!samsung!uunet!viusys!viusys.uucp!tomb
From: tomb@viusys.uucp (Tom L. Baitz)
Newsgroups: comp.lang.perl
Subject: Packages Question
Message-ID: <1990May30.212950.26190@viusys.uucp>
Date: 30 May 90 21:29:50 GMT
Sender: @viusys.uucp
Reply-To: tomb@viusys.uucp (Tom L. Baitz)
Distribution: usa
Organization: Unisys, McLean, VA
Lines: 33

I guess I'm totally missing the boat, but why doesn't this work?

$val1 = 1;
$val2 = 2;
print "$val1 $val2\n";
&testsub;
print "$val1 $val2\n";
exit;

package abc;

sub main'testsub {
	$valx = 3;
	main'$val2 = $valx;
}

The error I get is:
EOF in string at test2.pl line 12.

perl -v
$Header: perly.c,v 3.0.1.5 90/03/27 16:20:57 lwall Locked $
Patch level: 18

Copyright (c) 1989, 1990, Larry Wall

Perl may be copied only under the terms of the GNU General Public License,
a copy of which can be found with the Perl 3.0 distribution kit.


Thanks,
--
---
tomb@viusys   |   UUCP: ..uunet!viusys!tomb  |  ARPA: McLean-Unisys.ARMY.MIL