From c1a9df1ad716686c009214b2433947c9db45e510 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 16 Jul 2002 02:59:17 +0000
Subject: use POSIX instead of Fcntl :seek for older Perls

---
 Echolot/Storage/File.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Echolot/Storage/File.pm')

diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm
index e6b7a8d..4e90d1a 100644
--- a/Echolot/Storage/File.pm
+++ b/Echolot/Storage/File.pm
@@ -1,7 +1,7 @@
 package Echolot::Storage::File;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: File.pm,v 1.37 2002/07/16 02:48:57 weasel Exp $
+# $Id: File.pm,v 1.38 2002/07/16 02:59:17 weasel Exp $
 #
 
 =pod
@@ -24,7 +24,8 @@ use IO::Handle;
 use English;
 use Carp qw{cluck confess carp};
 use Fcntl ':flock'; # import LOCK_* constants
-use Fcntl ':seek'; # import SEEK_* constants
+#use Fcntl ':seek'; # import SEEK_* constants
+use POSIX; # import SEEK_* constants (older perls don't have SEEK_ in Fcntl)
 use Echolot::Tools;
 
 =item B<new> (I<%args>)
-- 
cgit v1.2.3