-#!/l/local/bin/perl -wspi.bak
+#!/usr/bin/perl -wspi~
#
# reads a perforce style diff on stdin and outputs appropriate headers
}
my ($cur, $match);
-$cur = m<^==== //depot/(.+?)\#\d+.* ====$> ... m<^(\@\@.+\@\@|\*+)$>;
+$cur = m<^==== //depot/(.+?)\#\d+.* ====( \w+)?$> ... m<^(\@\@.+\@\@|\*+)$>;
$match = $1;
}
}
# 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