Change 31389 by [EMAIL PROTECTED] on 2007/06/15 13:52:34
Subject: [PATCH] Warning bit fixes to t/op/caller.t
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Fri, 15 Jun 2007 09:49:47 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/caller.t#15 edit
Differences ...
==== //depot/perl/t/op/caller.t#15 (text) ====
Index: perl/t/op/caller.t
--- perl/t/op/caller.t#14~29723~ 2007-01-08 13:20:26.000000000 -0800
+++ perl/t/op/caller.t 2007-06-15 06:52:34.000000000 -0700
@@ -77,15 +77,15 @@
testwarn("\0" x 12);
use warnings;
- BEGIN { is( ${^WARNING_BITS},
"\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\025", 'default bits on via "use
warnings"' ); }
- BEGIN { testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\025",
"#1"); }
+ BEGIN { is( ${^WARNING_BITS},
"\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\005", 'default bits on via "use
warnings"' ); }
+ BEGIN { testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\005",
"#1"); }
# run-time :
# the warning mask has been extended by warnings::register
- testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55");
+ testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15");
use warnings::register;
- BEGIN { is( ${^WARNING_BITS},
"\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55", 'warning bits on via "use
warnings::register"' ) }
- testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55","#3");
+ BEGIN { is( ${^WARNING_BITS},
"\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15", 'warning bits on via "use
warnings::register"' ) }
+ testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15","#3");
}
End of Patch.
