diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-06-23 15:41:22 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-23 16:12:29 -0700 |
| commit | 45c76a8eaee36f02677ff4b7a320e3b1de0b72a7 (patch) | |
| tree | ffa22e26eb5c587a889c872526e7598e856ed383 /t | |
| parent | 92951bcef065d7e3740ef2877b932f8472961274 (diff) | |
| download | perl-45c76a8eaee36f02677ff4b7a320e3b1de0b72a7.tar.gz | |
diag.t: Tolerate trailing spaces in C code
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/diag.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/t/porting/diag.t b/t/porting/diag.t index 106a748e3f..57be7512dc 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 |