diff options
| author | Alexandr Ciornii <alexchorny@gmail.com> | 2011-09-07 00:30:46 +0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-05 13:44:00 -0800 |
| commit | 70eec6488881c54307a924829e648b8abc9e8bc7 (patch) | |
| tree | 2562afea20c1fd59f8a21b0cc2c37e0960fc3767 /utils/h2xs.PL | |
| parent | d72a08cef7cdd5dc1701378ef61657bcd4fee58e (diff) | |
| download | perl-70eec6488881c54307a924829e648b8abc9e8bc7.tar.gz | |
|| instead of "or" (perl#78708)
Diffstat (limited to 'utils/h2xs.PL')
| -rw-r--r-- | utils/h2xs.PL | 2 |
1 files changed, 1 insertions, 1 deletions
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; |