[perl #71204] diagnostics.pm suppresses 'Use of uninitialized value in range (or...

[p5sagit/p5-mst-13.2.git] / t / run / switchC.t

diff --git a/t/run/switchC.t b/t/run/switchC.t
index 38e79a1..213bdbc 100644 (file)
--- a/t/run/switchC.t
+++ b/t/run/switchC.t
@@ -9,6 +9,11 @@ BEGIN {
        print "1..0 # Skip: not perlio\n";
        exit 0;
     }
+    if ($ENV{PERL_CORE_MINITEST}) {
+       print "1..0 # Skip : -C and \$ENV{PERL_UNICODE} are disabled on miniperl\n";
+       exit 0;
+    }
+       
 }
 
 BEGIN { require "./test.pl"; }
@@ -60,18 +65,18 @@ $r = runperl( switches => [ '-CA', '-w' ],
 like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' );
 
 $r = runperl( switches => [ '-CS', '-w' ],
-             prog     => "#!perl -CS\nprint chr(256)",
+             progs    => [ '#!perl -CS', 'print chr(256)'],
               stderr   => 1, );
 like( $r, qr/^$b(?:\r?\n)?$/s, '#!perl -C' );
 
 $r = runperl( switches => [ '-CA', '-w' ],
-             prog     => "#!perl -CS\nprint chr(256)",
+             progs    => [ '#!perl -CS', 'print chr(256)' ],
               stderr   => 1, );
 like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
       '#!perl -C with different -C on command line' );
 
 $r = runperl( switches => [ '-w' ],
-             prog     => "#!perl -CS\nprint chr(256)",
+             progs    => [ '#!perl -CS', 'print chr(256)' ],
               stderr   => 1, );
 like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
       '#!perl -C but not command line' );