From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 14 Mar 2000 20:34:19 +0000 (+0000)
Subject: kludge our way around warnings on C<use POSIX; use IO::File;>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d5b0d4def847c04f5763f1feb1c98b4f2785b6fb;p=p5sagit%2Fp5-mst-13.2.git

kludge our way around warnings on C<use POSIX; use IO::File;>

p4raw-id: //depot/perl@5738
---

diff --git a/ext/IO/lib/IO/Seekable.pm b/ext/IO/lib/IO/Seekable.pm
index bfcfc13..e09d48b 100644
--- a/ext/IO/lib/IO/Seekable.pm
+++ b/ext/IO/lib/IO/Seekable.pm
@@ -48,7 +48,10 @@ require 5.005_64;
 use Carp;
 use strict;
 our($VERSION, @EXPORT, @ISA);
-use IO::Handle qw(SEEK_SET SEEK_CUR SEEK_END);
+use IO::Handle ();
+# XXX we can't get these from IO::Handle or we'll get prototype
+# mismatch warnings on C<use POSIX; use IO::File;> :-(
+use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END);
 require Exporter;
 
 @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);