diff options
| author | Shlomi Fish <shlomif@shlomifish.org> | 2012-06-30 16:40:43 +0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-30 09:57:04 -0700 |
| commit | 5578394101efd4d95c058c4f22f51763ae92ebc2 (patch) | |
| tree | 36aaabba4310363a5261828a52dba544de205d2a /lib/perl5db/t/test-l-statement-1 | |
| parent | b81e0e290a7c5a7e7343a6f4a9baf7b6ac93475e (diff) | |
| download | perl-5578394101efd4d95c058c4f22f51763ae92ebc2.tar.gz | |
Fix perl -d’s "l" command.
The "l" command (without any arguments) got broken in blead, due to the
"use strict" patch because "$max = ..." was changed into "my $max = ..."
while $max should always be a global.
Diffstat (limited to 'lib/perl5db/t/test-l-statement-1')
| -rw-r--r-- | lib/perl5db/t/test-l-statement-1 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/perl5db/t/test-l-statement-1 b/lib/perl5db/t/test-l-statement-1 new file mode 100644 index 0000000000..c3cf5b080e --- /dev/null +++ b/lib/perl5db/t/test-l-statement-1 @@ -0,0 +1,8 @@ +$x = 1; +print "1\n"; + +$x = 2; +print "2\n"; + +$x = 3; +print "3\n"; |