From c1a9df1ad716686c009214b2433947c9db45e510 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Tue, 16 Jul 2002 02:59:17 +0000 Subject: use POSIX instead of Fcntl :seek for older Perls --- Echolot/Commands.pm | 5 +++-- Echolot/Storage/File.pm | 5 +++-- 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 -# $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 -# $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 (I<%args>) -- cgit v1.2.3