diff options
| -rw-r--r-- | utils/perlbug.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index f46564ea5f..f6280d25b8 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -37,8 +37,8 @@ my @patches; while (<PATCH_LEVEL>) { last if /^\s*}/; chomp; - s/^\s+,?"?//; - s/"?,?$//; + s/^\s+,?\s*"?//; + s/"?\s*,?$//; s/(['\\])/\\$1/g; push @patches, $_ unless $_ eq 'NULL'; } |