diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2012-10-03 14:28:28 +0200 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-11-12 09:18:34 -0500 |
commit | f4beae368bead02685066180f7dfb22c805c5357 (patch) | |
tree | adc2e78e2dec06211c4b9ec2f8c8e1f26df57f35 /lib/perl5db | |
parent | 7793e5c229bfecc8ba6e8094476707c09e01e8a7 (diff) | |
download | perl-f4beae368bead02685066180f7dfb22c805c5357.tar.gz |
Fix "a [command]" statement.
Without a line number. See:
https://rt.perl.org/rt3/Ticket/Display.html?id=115110 .
Diffstat (limited to 'lib/perl5db')
-rw-r--r-- | lib/perl5db/t/test-a-statement-1 | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/lib/perl5db/t/test-a-statement-1 b/lib/perl5db/t/test-a-statement-1 new file mode 100644 index 0000000000..a1782a0034 --- /dev/null +++ b/lib/perl5db/t/test-a-statement-1 @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +while (my $l = <DATA>) { + chomp $l; + print "$l\n"; +} + +__DATA__ +123456789012 This is a test +3456789012345This is another test +6789012345678This is yet another test +9012345678901Is this yet another test? +234567890123 Yes, this is another test. +4567890123456I think this is a test. +7890123456789Now is the time. +0123456789012For all good men. +3456789012345To come to the aid party. +678901234678 This is the tenth line. + |