fix testsuite issues in change#5397

[perl5.git] / t / pragma / warn / pp_sys

diff --git a/t/pragma/warn/pp_sys b/t/pragma/warn/pp_sys
index cab1b60..d428344 100644 (file)
--- a/t/pragma/warn/pp_sys
+++ b/t/pragma/warn/pp_sys
@@ -215,8 +215,8 @@ flock STDIN, 8;
 opendir STDIN, ".";
 flock STDIN, 8;
 EXPECT
-flock() on closed filehandle main::STDIN at - line 4.
-flock() on closed filehandle main::STDIN at - line 6.
+flock() on closed filehandle main::STDIN at - line 14.
+flock() on closed filehandle main::STDIN at - line 16.
 (Are you trying to call flock() on dirhandle main::STDIN?)
 ########
 # pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]