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";
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.
EXPECT
########
# pp_hot.c [pp_concat]
-use warnings 'misc';
+use warnings 'y2k';
use Config;
BEGIN {
unless ($Config{ccflags} =~ /Y2KWARN/) {
$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