summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Echolot/Commands.pm5
-rw-r--r--Echolot/Storage/File.pm5
2 files changed, 6 insertions, 4 deletions
diff --git a/Echolot/Commands.pm b/Echolot/Commands.pm
index 667f27b..e502a91 100644
--- a/Echolot/Commands.pm
+++ b/Echolot/Commands.pm
@@ -1,7 +1,7 @@
package Echolot::Commands;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Commands.pm,v 1.7 2002/07/16 02:48:57 weasel Exp $
+# $Id: Commands.pm,v 1.8 2002/07/16 02:59:17 weasel Exp $
#
=pod
@@ -19,7 +19,8 @@ This package provides functions for sending out and receiving pings.
use strict;
use Carp qw{cluck};
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 English;
sub addCommand($) {
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>)