diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-05-29 04:33:33 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-05-29 04:33:33 -0500 |
commit | 2f6aa7feb33188b91c0f2ac311ec2047b27d6979 (patch) | |
tree | 13a3abeca009c666649f1236a0b50346d6ff2fee | |
parent | 940bbcd7a91e3b81657d06b700e7f9dcc7cc7b32 (diff) | |
download | reply-2f6aa7feb33188b91c0f2ac311ec2047b27d6979.tar.gz reply-2f6aa7feb33188b91c0f2ac311ec2047b27d6979.zip |
start in package main
-rw-r--r-- | lib/App/REPL/Plugin/Defaults.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/App/REPL/Plugin/Defaults.pm b/lib/App/REPL/Plugin/Defaults.pm index fbd96f8..d45c088 100644 --- a/lib/App/REPL/Plugin/Defaults.pm +++ b/lib/App/REPL/Plugin/Defaults.pm @@ -27,7 +27,7 @@ sub read_line { return scalar <>; } -my $PREFIX = "BEGIN { \$^H = \$" . __PACKAGE__ . "::default_hints; \%^H = \%\$" . __PACKAGE__ . "::default_hinthash; \${^WARNING_BITS} = \$" . __PACKAGE__ . "::default_warning_bits }"; +my $PREFIX = "package main; BEGIN { \$^H = \$" . __PACKAGE__ . "::default_hints; \%^H = \%\$" . __PACKAGE__ . "::default_hinthash; \${^WARNING_BITS} = \$" . __PACKAGE__ . "::default_warning_bits }"; sub evaluate { my $self = shift; |