diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-30 20:28:43 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-30 20:30:44 -0800 |
| commit | bda1f0811edf9cb036f9dd6a26f0be556c87e377 (patch) | |
| tree | 2d6ba210d0a83088d881256a5e6a57daa7be9ceb /t | |
| parent | b7e077d0225eac833ce2eb6fe9e1807f77d0f848 (diff) | |
| download | perl-bda1f0811edf9cb036f9dd6a26f0be556c87e377.tar.gz | |
Test ‘Too late for -[Mm]’
Diffstat (limited to 't')
| -rw-r--r-- | t/run/switches.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/run/switches.t b/t/run/switches.t index 419d580d4d..57ae32474d 100644 --- a/t/run/switches.t +++ b/t/run/switches.t @@ -11,7 +11,7 @@ BEGIN { BEGIN { require "./test.pl"; } -plan(tests => 110); +plan(tests => 112); use Config; @@ -225,6 +225,10 @@ SWTESTPM "-M- not allowed" ); } # disable TODO on VMS } +is runperl(stderr => 1, prog => '#!perl -m'), + qq 'Too late for "-m" option at -e line 1.\n', '#!perl -m'; +is runperl(stderr => 1, prog => '#!perl -M'), + qq 'Too late for "-M" option at -e line 1.\n', '#!perl -M'; # Tests for -V |