This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
change p4d2p to deal with new style diff2 output
[perl5.git] / Porting / p4d2p
index f645ef8..8003bf7 100755 (executable)
@@ -1,4 +1,4 @@
-#!/l/local/bin/perl -wspi.bak
+#!/usr/bin/perl -wspi~
 
 #
 # reads a perforce style diff on stdin and outputs appropriate headers
@@ -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