X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fmisc.t;h=6156ac2f21732b5fb1899e99166709edb82988e9;hb=fb73857aa0bfa8ed43d4d2f972c564c70a57e0c4;hp=660049b3f1bce78ee7491dbf91543bf442ebb9f7;hpb=464ed3b648d262825ad1bfc5a2e55de2507fd651;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/misc.t b/t/op/misc.t
index 660049b..6156ac2 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -1,5 +1,8 @@
 #!./perl
 
+# NOTE: Please don't add tests to this file unless they *need* to be run in
+# separate executable and can't simply use eval.
+
 chdir 't' if -d 't';
 @INC = "../lib";
 $ENV{PERL5LIB} = "../lib";
@@ -18,8 +21,8 @@ $CAT = (($^O eq 'MSWin32') ? '.\perl -e "print <>"' : 'cat');
 
 for (@prgs){
     my $switch;
-    if (s/^\s*-\w+//){
-	$switch = $&;
+    if (s/^\s*(-\w.*)//){
+	$switch = $1;
     }
     my($prog,$expected) = split(/\nEXPECT\n/, $_);
     if ($^O eq 'MSWin32') {