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
authorJan Dubois <jand@activestate.com>
Thu, 30 Oct 2003 18:43:08 +0000 (10:43 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 31 Oct 2003 19:19:00 +0000 (19:19 +0000)
Message-ID: <dpi3qvgf1uke7pj1gcpgmoh622lqcvl6uc@4ax.com>

p4raw-id: //depot/perl@21587

Porting/p4d2p

index 83b0021..8003bf7 100755 (executable)
@@ -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