From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 15 Jul 2013 09:13:48 +0000 (+0200)
Subject: Remove a duplicate test separator "########\n" line from the pp_sys tests.
X-Git-Tag: upstream/5.20.0~2622^2~1
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f03aef051fa2e50249e8ba218234325ac3eed89b;p=platform%2Fupstream%2Fperl.git

Remove a duplicate test separator "########\n" line from the pp_sys tests.

The existing parser using split includes the second "########\n" as part of
the extracted test program, which the Perl interpreter treats as a comment
line. The parser refactoring in the next commit no longer adds the line to
the extracted test program, causing the line numbers for the warnings to
differ by one.

The extra "########\n" was added as part of commit c521cf7c8af1697e in Dec
2010, along with the test program which follows it, and the (now) incorrect
line number expectations.
---

diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys
index f0a5627..2e81916 100644
--- a/t/lib/warnings/pp_sys
+++ b/t/lib/warnings/pp_sys
@@ -154,7 +154,6 @@ write() on closed filehandle STDIN at - line 8.
 write() on closed filehandle STDIN at - line 11.
 	(Are you trying to call write() on dirhandle STDIN?)
 ########
-########
 # pp_sys.c [pp_leavewrite]
 use warnings 'unopened';
 format STDIN =
@@ -178,8 +177,8 @@ opendir FOO, ".";
 write STDIN;
 write FOO;
 EXPECT
-write() on unopened filehandle FOO at - line 10.
-write() on unopened filehandle FOO at - line 15.
+write() on unopened filehandle FOO at - line 9.
+write() on unopened filehandle FOO at - line 14.
 	(Are you trying to call write() on dirhandle FOO?)
 ########
 # pp_sys.c [pp_leavewrite]