(perl #131836) avoid a use-after-free after parsing a "sub" keyword
[perl.git] / Porting / git-make-p4-refs
1 #!/bin/sh
2
3 # this script creates a tag for every p4raw-id
4 # the output can be appended to .git/packed-refs, but make sure to back up
5 # first
6
7 # then you can do:
8
9 # git show perl@1234 where 1234 is a perforce change, and 'perl' is the p4
10 # depot
11
12 git log -z -F --grep='p4raw-id:' --pretty='format:%H %b' | \
13 perl -0ne 'chomp; if ( @t = m{([a-f0-9]{40}).*?p4raw-id: //depot/(.*?\@\d+)}s ) { print "@t\n" }'