From: Vincent Pit <perl@profvince.com>
Date: Sat, 20 Dec 2008 08:49:33 +0000 (+0100)
Subject: Fix the 'or' precedence in case open fail
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c8254d1d77677fed2e136a244708bc4d0c26d0fa;p=p5sagit%2Fp5-mst-13.2.git

Fix the 'or' precedence in case open fail
---

diff --git a/Porting/switch_to_perforce_id.pl b/Porting/switch_to_perforce_id.pl
index cf21a13..cfd68e3 100755
--- a/Porting/switch_to_perforce_id.pl
+++ b/Porting/switch_to_perforce_id.pl
@@ -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/;