From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 23 Jun 2013 22:41:22 +0000 (-0700)
Subject: diag.t: Tolerate trailing spaces in C code
X-Git-Tag: upstream/5.20.0~2967
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=45c76a8eaee36f02677ff4b7a320e3b1de0b72a7;p=platform%2Fupstream%2Fperl.git

diag.t: Tolerate trailing spaces in C code
---

diff --git a/t/porting/diag.t b/t/porting/diag.t
index 106a748..57be751 100644
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -246,8 +246,8 @@ sub check_file {
         $nextline =~ s/^\s+//;
         $_ =~ s/\\$//;
         # Note that we only want to do this where *both* are true.
-        if ($_ =~ m/"$/ and $nextline =~ m/^"/) {
-          $_ =~ s/"$//;
+        if ($_ =~ m/"\s*$/ and $nextline =~ m/^"/) {
+          $_ =~ s/"\s*$//;
           $nextline =~ s/^"//;
         }
         $_ .= $nextline;
@@ -520,7 +520,6 @@ More than one argument to open(,':%s')
 \N{} in character class restricted to one character in regex; marked by <-- HERE in m/%s/
 No %s allowed while running setgid
 No %s allowed with (suid) fdscript
-No such class field "%s"
 Not an XSUB reference
 Operator or semicolon missing before %c%s
 Pattern subroutine nesting without pos change exceeded limit in regex