This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
|| instead of "or" (perl#78708)
authorAlexandr Ciornii <alexchorny@gmail.com>
Tue, 6 Sep 2011 21:30:46 +0000 (00:30 +0300)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 5 Dec 2011 21:44:00 +0000 (13:44 -0800)
utils/h2xs.PL

index 6c41ea9..ee4079f 100644 (file)
@@ -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;