This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
deprecated warnings
authorIlya Zakharevich <ilya@math.berkeley.edu>
Fri, 13 Dec 2002 13:47:08 +0000 (05:47 -0800)
committerhv <hv@crypt.org>
Tue, 17 Dec 2002 02:03:58 +0000 (02:03 +0000)
Message-ID: <20021213214707.GA2588@math.berkeley.edu>

p4raw-id: //depot/perl@18315

lib/constant.t
lib/fields.t

index a5ffb2c..51902eb 100644 (file)
@@ -10,7 +10,7 @@ use vars qw{ @warnings };
 BEGIN {                                # ...and save 'em for later
     $SIG{'__WARN__'} = sub { push @warnings, @_ }
 }
-END { print @warnings }
+END { print STDERR @warnings }
 
 
 use strict;
index adfe60a..a505194 100755 (executable)
@@ -10,7 +10,7 @@ BEGIN {
            $w++;
            return;
        }
-       print $_[0];
+       print STDERR $_[0];
    };
 }