[inseparable changes from match from perl-5.003_97 to perl-5.003_97a]

[perl5.git] / t / op / runlevel.t

diff --git a/t/op/runlevel.t b/t/op/runlevel.t
index 336b164..2be2eec 100755 (executable)
--- a/t/op/runlevel.t
+++ b/t/op/runlevel.t
@@ -258,7 +258,7 @@ package main;
 open FH, ">&STDOUT";
 tie *FH, TEST;
 print FH "OK\n";
-print "DONE\n";
+print STDERR "DONE\n";
 EXPECT
 PRINT CALLED
 DONE