RT#69616: regexp SVs lose regexpness in assignment

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

diff --git a/t/op/cproto.t b/t/op/cproto.t
index 89bd555..af1555f 100644 (file)
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 BEGIN { require './test.pl'; }
-plan tests => 238;
+plan tests => 237;
 
 while (<DATA>) {
     chomp;
@@ -57,7 +57,7 @@ delete undef
 die (@)
 do undef
 dump ()
-each (\%)
+each (\[@%])
 else undef
 elsif undef
 endgrent ()
@@ -68,7 +68,6 @@ endpwent ()
 endservent ()
 eof (;*)
 eq ($$)
-err ()
 eval undef
 exec undef
 exists undef
@@ -121,7 +120,7 @@ index ($$;$)
 int (_)
 ioctl (*$$)
 join ($@)
-keys (\%)
+keys (\[@%])
 kill (@)
 last undef
 lc (_)
@@ -174,7 +173,7 @@ read (*\$$;$)
 readdir (*)
 readline (;*)
 readlink (_)
-readpipe ($)
+readpipe (_)
 recv (*\$$$)
 redo undef
 ref (_)
@@ -187,7 +186,7 @@ rewinddir (*)
 rindex ($$;$)
 rmdir (_)
 s undef
-say (;*@)
+say undef
 scalar undef
 seek (*$$)
 seekdir (*$)
@@ -253,7 +252,7 @@ untie undef
 until undef
 use undef
 utime (@)
-values (\%)
+values (\[@%])
 vec ($$$)
 wait ()
 waitpid ($$)