memcpy has n o in it, as pinted ut by Sarathy.

[p5sagit/p5-mst-13.2.git] / t / pragma / warn / mg

diff --git a/t/pragma/warn/mg b/t/pragma/warn/mg
index 14307e0..a8f9dbc 100644 (file)
--- a/t/pragma/warn/mg
+++ b/t/pragma/warn/mg
@@ -6,16 +6,25 @@
   SIG%s handler \"%s\" not defined.
     $SIG{"INT"} = "ok3"; kill "INT",$$;
 
+  Mandatory Warnings TODO
+  ------------------
+  Can't break at that line     [magic_setdbline]
 
 __END__
 # mg.c
-use warning 'signal' ;
+use warnings 'signal' ;
 $SIG{FRED} = sub {};
 EXPECT
 No such signal: SIGFRED at - line 3.
 ########
 # mg.c
-use warning 'signal' ;
+no warnings 'signal' ;
+$SIG{FRED} = sub {};
+EXPECT
+
+########
+# mg.c
+use warnings 'signal' ;
 if ($^O eq 'MSWin32' || $^O eq 'VMS') {
     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
 }
@@ -23,3 +32,13 @@ $|=1;
 $SIG{"INT"} = "fred"; kill "INT",$$;
 EXPECT
 SIGINT handler "fred" not defined.
+########
+# mg.c
+no warnings 'signal' ;
+if ($^O eq 'MSWin32' || $^O eq 'VMS') {
+    print "SKIPPED\n# win32, can't kill() to raise()\n"; exit;
+}
+$|=1;
+$SIG{"INT"} = "fred"; kill "INT",$$;
+EXPECT
+