yes,
--- zap.pl-orig Tue Aug 7 00:55:12 2001
+++ zap.pl Tue Aug 7 00:54:54 2001
@@ -5,3 +5,3 @@
-print "$tmp\n";
+print "$main::tmp\n";
On Mon, Aug 06, 2001 at 02:46:33PM -0500, Jay Strauss wrote:
> > cat ./tmp
> #!/usr/bin/perl -w
> use strict;
>
> create();
>
> print "$tmp\n";
>
> sub create {
>
> $main::tmp = 1;
> }
>
> > ./tmp
> Global symbol "$tmp" requires explicit package name at ./tmp line 6.
> Execution of ./tmp aborted due to compilation errors.
