change p4d2p to deal with new style diff2 output

Message-ID: <dpi3qvgf1uke7pj1gcpgmoh622lqcvl6uc@4ax.com>

p4raw-id: //depot/perl@21587

diff --git a/Porting/p4d2p b/Porting/p4d2p
index 83b0021..8003bf7 100755 (executable)
--- a/Porting/p4d2p
+++ b/Porting/p4d2p
@@ -36,7 +36,7 @@ USAGE
 }
 
 my ($cur, $match);
-$cur = m<^==== //depot/(.+?)\#\d+.* ====$> ... m<^(\@\@.+\@\@|\*+)$>;
+$cur = m<^==== //depot/(.+?)\#\d+.* ====( \w+)?$> ... m<^(\@\@.+\@\@|\*+)$>;
 
 $match = $1;
 
@@ -71,7 +71,7 @@ if ($cur) {
        }
     }
     # see if we hit another patch (i.e. previous patch was empty)
-    elsif (m<^==== //depot/(.+?)\#\d+.* ====$>) {
+    elsif (m<^==== //depot/(.+?)\#\d+.* ====( \w+)?$>) {
        $file = $match = $1;
     }
     # suppress all other lines in the header