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';