reword comment

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

diff --git a/t/pragma/warn/pp_hot b/t/pragma/warn/pp_hot
index 312f7da..dc99694 100644 (file)
--- a/t/pragma/warn/pp_hot
+++ b/t/pragma/warn/pp_hot
@@ -62,12 +62,12 @@ print <STDERR>;
 open(FOO, ">&STDOUT") and print <FOO>;
 print getc(STDERR);
 print getc(FOO);
-####################################################################
-# The next test is known to fail on some systems (Linux/BSD+glibc, #
-# NeXT among others.  glibc should be fixed in the next version,   #
-# but it appears other platforms have little hope.  We skip it for #
-# now (on the grounds that it is "just" a warning).                #
-####################################################################
+#####################################################################
+# The next test is known to fail on some systems (Linux+glibc, *BSD #
+# NeXT among others.  glibc and FreeBSD have been fixed, but it     #
+# appears other platforms have little hope.  We skip it for now (on #
+# the grounds that it is "just" a warning).                         #
+#####################################################################
 #read(FOO,$_,1);
 no warnings 'io' ;
 print STDIN "anc";
@@ -114,17 +114,17 @@ EXPECT
 Use of uninitialized value in hash dereference at - line 4.
 ########
 # pp_hot.c [pp_aassign]
-use warnings 'unsafe' ;
+use warnings 'misc' ;
 my %X ; %X = (1,2,3) ;
-no warnings 'unsafe' ;
+no warnings 'misc' ;
 my %Y ; %Y = (1,2,3) ;
 EXPECT
 Odd number of elements in hash assignment at - line 3.
 ########
 # pp_hot.c [pp_aassign]
-use warnings 'unsafe' ;
+use warnings 'misc' ;
 my %X ; %X = [1 .. 3] ;
-no warnings 'unsafe' ;
+no warnings 'misc' ;
 my %Y ; %Y = [1 .. 3] ;
 EXPECT
 Reference found where even-sized list expected at - line 3.
@@ -205,7 +205,7 @@ $b = sub
 EXPECT
 ########
 # pp_hot.c [pp_concat]
-use warnings 'misc';
+use warnings 'y2k';
 use Config;
 BEGIN {
     unless ($Config{ccflags} =~ /Y2KWARN/) {
@@ -219,7 +219,7 @@ $x     = "19$yy\n";
 $x     = "19" . $yy . "\n";
 $x     = "319$yy\n";
 $x     = "319" . $yy . "\n";
-no warnings 'misc';
+no warnings 'y2k';
 $x     = "19$yy\n";
 $x     = "19" . $yy . "\n";
 EXPECT