When Gconvert is a macro around sprintf with a .* format we need

[perl5.git] / lib / constant.t

diff --git a/lib/constant.t b/lib/constant.t
index a5ffb2c..51902eb 100644 (file)
--- 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;