[inseparable changes from match from perl-5.003_97 to perl-5.003_97a]
[perl.git] / t / op / magic.t
index b338d96..c2be2e5 100755 (executable)
@@ -94,9 +94,9 @@ ok 13, (keys %h)[0] eq "foo\034bar", (keys %h)[0];
 }
 
 # $?, $@, $$
-system "$PERL -e 'exit(0)'";
+system qq[$PERL -e "exit(0)"];
 ok 15, $? == 0, $?;
-system "$PERL -e 'exit(1)'";
+system qq[$PERL -e "exit(1)"];
 ok 16, $? != 0, $?;
 
 eval { die "foo\n" };