diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-16 02:59:17 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-16 02:59:17 +0000 |
| commit | c1a9df1ad716686c009214b2433947c9db45e510 (patch) | |
| tree | 440320d653a79523be23004ae7e8784d19fce00d /Echolot/Commands.pm | |
| parent | 6474254b8452dac75e5ebe46c17506916366bf9e (diff) | |
use POSIX instead of Fcntl :seek for older Perls
Diffstat (limited to 'Echolot/Commands.pm')
| -rw-r--r-- | Echolot/Commands.pm | 5 |
1 files changed, 3 insertions, 2 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($) { |