diff options
Diffstat (limited to 'lib/Exporter/Lexical.pm')
-rw-r--r-- | lib/Exporter/Lexical.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Exporter/Lexical.pm b/lib/Exporter/Lexical.pm index d7f0ee3..8eaf1a2 100644 --- a/lib/Exporter/Lexical.pm +++ b/lib/Exporter/Lexical.pm @@ -29,6 +29,12 @@ sub import { for my $export (keys %exports) { lexical_import($export, $exports{$export}); } + + # XXX there is a bug with lexical_import where the pad entry sequence + # numbers are incorrect when used with 'use', so the first statement + # after the 'use' statement doesn't see the lexical. hack around this + # for now by injecting a dummy statement right after the 'use'. + _lex_stuff(";1;"); }; { |