diff options
| author | Florian Ragwitz <rafl@debian.org> | 2008-05-11 09:51:18 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-05-11 15:10:32 +0000 |
| commit | 9f6397285900782ac168be55e879a6ac4fab7094 (patch) | |
| tree | c9450dd814ce366fd8c0bb377455a3ca0cbe323a /t/run | |
| parent | be71433107c54b7cbcb6d0737baf8d238006d75f (diff) | |
| download | perl-9f6397285900782ac168be55e879a6ac4fab7094.tar.gz | |
Handle PL_minus_E before PL_minus_{n,p}.
Message-Id: <1210485078-19640-1-git-send-email-rafl@debian.org>
p4raw-id: //depot/perl@33822
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/switches.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/run/switches.t b/t/run/switches.t index b3fd9347e6..e5ac5d17a8 100644 --- a/t/run/switches.t +++ b/t/run/switches.t @@ -11,7 +11,7 @@ BEGIN { BEGIN { require "./test.pl"; } -plan(tests => 68); +plan(tests => 69); use Config; @@ -346,3 +346,9 @@ $r = runperl( switches => [ '-E', '"given(undef) {when(undef) { say q(Hello, world!)"}}'] ); is( $r, "Hello, world!\n", "-E given" ); + +$r = runperl( + switches => [ '-nE', q('} END { say q/affe/') ], + stdin => 'zomtek', +); +is( $r, "affe\n", '-E works outside of the block created by -n' ); |