[p5sagit/p5-mst-13.2.git] / Porting / switch_to_perforce_id.pl

#!perl
use strict;
use warnings;
use English;

my $perforce_id = shift;
die "Usage: switch_to_perforce_id.pl 34440" unless $perforce_id;

open my $fh, 'git log -z --pretty=raw|' or die $!;
local $INPUT_RECORD_SEPARATOR = "\0";

my $re = qr/p4raw-id:.+\@$perforce_id/;

while ( my $log = <$fh> ) {
    next unless $log =~ /$re/;
    my ($commit) = $log =~ /commit ([a-z0-9]+)/;
    system "git checkout $commit";
    print "(use git checkout blead to go back)\n";
    exit;
}

die "No log found for $perforce_id";
Commit	Line	Data
734abad9	1	#!perl
	2	use strict;
	3	use warnings;
	4	use English;
	5
	6	my $perforce_id = shift;
	7	die "Usage: switch_to_perforce_id.pl 34440" unless $perforce_id;
	8
c8254d1d	9	open my $fh, 'git log -z --pretty=raw\|' or die $!;
734abad9	10	local $INPUT_RECORD_SEPARATOR = "\0";
	11
	12	my $re = qr/p4raw-id:.+\@$perforce_id/;
	13
	14	while ( my $log = <$fh> ) {
	15	next unless $log =~ /$re/;
	16	my ($commit) = $log =~ /commit ([a-z0-9]+)/;
	17	system "git checkout $commit";
	18	print "(use git checkout blead to go back)\n";
	19	exit;
	20	}
	21
	22	die "No log found for $perforce_id";