From bda1f0811edf9cb036f9dd6a26f0be556c87e377 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 30 Dec 2011 20:28:43 -0800 Subject: [PATCH] =?utf8?q?Test=20=E2=80=98Too=20late=20for=20-[Mm]?= =?utf8?q?=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- t/run/switches.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/t/run/switches.t b/t/run/switches.t index 419d580..57ae324 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 -- 2.7.4