warning for split(/.../g, ...);

[p5sagit/p5-mst-13.2.git] / t / lib / warnings / op

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 2c2c3f5..7833562 100644 (file)
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -36,6 +36,9 @@
        $a ;
        "abc"
 
+     Useless use of sort in scalar context
+       my $x = sort (2,1,3);
+
      Applying %s to %s will act on scalar(%s)
        my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
        @a =~ /abc/ ;
@@ -106,6 +109,10 @@
      Use of "package" with no arguments is deprecated
        package;
 
+    Package `%s' not found (did you use the incorrect case?)
+
+    Use of /g modifier is meaningless in split
+
     Mandatory Warnings 
     ------------------
     Prototype mismatch:                [cv_ckproto]
@@ -330,6 +337,14 @@ Useless use of getpwnam in void context at - line 52.
 Useless use of getpwuid in void context at - line 53.
 ########
 # op.c
+use warnings 'void' ; close STDIN ;
+my $x = sort (2,1,3);
+no warnings 'void' ;
+$x = sort (2,1,3);
+EXPECT
+Useless use of sort in scalar context at - line 3.
+########
+# op.c
 no warnings 'void' ; close STDIN ;
 1 x 3 ;                        # OP_REPEAT
                        # OP_GVSV
@@ -939,3 +954,12 @@ EXPECT
 Use of "package" with no arguments is deprecated at - line 3.
 Global symbol "BEGIN" requires explicit package name at - line 4.
 BEGIN not safe after errors--compilation aborted at - line 4.
+########
+# op.c
+# 20020401 mjd@plover.com at suggestion of jfriedl@yahoo.com
+use warnings 'regexp';
+split /blah/g, "blah";
+no warnings 'regexp';
+split /blah/g, "blah";
+EXPECT
+Use of /g modifier is meaningless in split at - line 4.