[inseparable changes from match from perl-5.003_97 to perl-5.003_97a]
[perl.git] / t / op / runlevel.t
index 336b164..2be2eec 100755 (executable)
@@ -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