Fix the 'or' precedence in case open fail
authorVincent Pit <perl@profvince.com>
Sat, 20 Dec 2008 08:49:33 +0000 (09:49 +0100)
committerVincent Pit <perl@profvince.com>
Sat, 20 Dec 2008 08:49:33 +0000 (09:49 +0100)
Porting/switch_to_perforce_id.pl

index cf21a13..cfd68e3 100755 (executable)
@@ -6,7 +6,7 @@ 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|' || die $!;
+open my $fh, 'git log -z --pretty=raw|' or die $!;
 local $INPUT_RECORD_SEPARATOR = "\0";
 
 my $re = qr/p4raw-id:.+\@$perforce_id/;