perlbug tweak to grok local_patches better

p4raw-id: //depot/perl@5550

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index f46564e..f6280d2 100644 (file)
--- 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';
 }