diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2003-06-14 10:49:57 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-15 17:08:02 +0000 |
| commit | 622913ab81739f4a9419ed541a122ff2495c8ab1 (patch) | |
| tree | 06a71ddf809f0904979a43c23c68dae3939718db /utils | |
| parent | 41be1fbddbbc49a5c34acad74f2905b11dd0ced0 (diff) | |
| download | perl-622913ab81739f4a9419ed541a122ff2495c8ab1.tar.gz | |
OS2 patches
Message-ID: <20030615004956.GA28272@math.berkeley.edu>
p4raw-id: //depot/perl@19789
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2xs.PL | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 7ec7dead4e..ffc343edb7 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -879,8 +879,9 @@ if( @path_h ){ close(CH); } else { - use Fcntl qw/SEEK_SET/; - seek CH, 0, SEEK_SET; + # Work from miniperl too - on "normal" systems + my $SEEK_SET = eval 'use Fcntl qw/SEEK_SET/; SEEK_SET' or 0; + seek CH, 0, $SEEK_SET; my $src = do { local $/; <CH> }; close CH; no warnings 'uninitialized'; |