deprecated warnings

Message-ID: <20021213214707.GA2588@math.berkeley.edu>

p4raw-id: //depot/perl@18315

2 files changed, 2 insertions, 2 deletions

diff --git a/lib/constant.t b/lib/constant.t
index a5ffb2ccbe..51902eb4ce 100644
--- a/lib/constant.t
+++ b/lib/constant.t
@@ -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;
diff --git a/lib/fields.t b/lib/fields.t
index adfe60a1e4..a5051947b6 100755
--- a/lib/fields.t
+++ b/lib/fields.t
@@ -10,7 +10,7 @@ BEGIN {
            $w++;
            return;
        }
-       print $_[0];
+       print STDERR $_[0];
    };
 }