From 70eec6488881c54307a924829e648b8abc9e8bc7 Mon Sep 17 00:00:00 2001
From: Alexandr Ciornii <alexchorny@gmail.com>
Date: Wed, 7 Sep 2011 00:30:46 +0300
Subject: || instead of "or" (perl#78708)

---
 utils/h2xs.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'utils')

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 6c41ea9cdd..ee4079f8ea 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -893,7 +893,7 @@ if( @path_h ){
       }
       else {
 	# Work from miniperl too - on "normal" systems
-        my $SEEK_SET = eval 'use Fcntl qw/SEEK_SET/; SEEK_SET' or 0;
+        my $SEEK_SET = eval 'use Fcntl qw/SEEK_SET/; SEEK_SET' || 0;
         seek CH, 0, $SEEK_SET;
         my $src = do { local $/; <CH> };
         close CH;
-- 
cgit v1.2.1