From df6ff9a2b3b96c9badade7e082dba6f3080eab0f Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Tue, 16 Jul 2002 02:48:57 +0000 Subject: no "use warnings"; anymore so it runs with older perls --- Echolot/Commands.pm | 5 ++--- Echolot/Conf.pm | 3 +-- Echolot/Config.pm | 3 +-- Echolot/Globals.pm | 3 +-- Echolot/Mailin.pm | 3 +-- Echolot/Pinger.pm | 3 +-- Echolot/Pinger/CPunk.pm | 3 +-- Echolot/Pinger/Mix.pm | 3 +-- Echolot/Scheduler.pm | 3 +-- Echolot/Stats.pm | 3 +-- Echolot/Storage/File.pm | 5 ++--- Echolot/Thesaurus.pm | 3 +-- Echolot/Tools.pm | 3 +-- 13 files changed, 15 insertions(+), 28 deletions(-) diff --git a/Echolot/Commands.pm b/Echolot/Commands.pm index 41b9804..667f27b 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.6 2002/07/13 23:37:55 weasel Exp $ +# $Id: Commands.pm,v 1.7 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -17,10 +17,9 @@ This package provides functions for sending out and receiving pings. =cut use strict; -use warnings; use Carp qw{cluck}; use Fcntl ':flock'; # import LOCK_* constants -use Fcntl ':seek'; # import LOCK_* constants +use Fcntl ':seek'; # import SEEK_* constants use English; sub addCommand($) { diff --git a/Echolot/Conf.pm b/Echolot/Conf.pm index 44181d6..0d9bda0 100644 --- a/Echolot/Conf.pm +++ b/Echolot/Conf.pm @@ -1,7 +1,7 @@ package Echolot::Conf; # (c) 2002 Peter Palfrader -# $Id: Conf.pm,v 1.17 2002/07/13 20:45:39 weasel Exp $ +# $Id: Conf.pm,v 1.18 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -18,7 +18,6 @@ remailer-conf and remailer-key replies. =cut use strict; -use warnings; use Carp qw{cluck}; use GnuPG::Interface; use IO::Handle; diff --git a/Echolot/Config.pm b/Echolot/Config.pm index e0518a9..412e3a8 100644 --- a/Echolot/Config.pm +++ b/Echolot/Config.pm @@ -1,7 +1,7 @@ package Echolot::Config; # (c) 2002 Peter Palfrader -# $Id: Config.pm,v 1.27 2002/07/16 00:21:04 weasel Exp $ +# $Id: Config.pm,v 1.28 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -38,7 +38,6 @@ The configuration file is searched in those places in that order: =cut use strict; -use warnings; use Carp; use English; diff --git a/Echolot/Globals.pm b/Echolot/Globals.pm index 0a1dabb..c4db482 100644 --- a/Echolot/Globals.pm +++ b/Echolot/Globals.pm @@ -1,7 +1,7 @@ package Echolot::Globals; # (c) 2002 Peter Palfrader -# $Id: Globals.pm,v 1.3 2002/07/16 00:53:33 weasel Exp $ +# $Id: Globals.pm,v 1.4 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -15,7 +15,6 @@ Echolot::Globals - echolot global variables =cut use strict; -use warnings; use Carp; my $GLOBALS; diff --git a/Echolot/Mailin.pm b/Echolot/Mailin.pm index f845758..3904beb 100644 --- a/Echolot/Mailin.pm +++ b/Echolot/Mailin.pm @@ -1,7 +1,7 @@ package Echolot::Mailin; # (c) 2002 Peter Palfrader -# $Id: Mailin.pm,v 1.5 2002/07/11 17:45:59 weasel Exp $ +# $Id: Mailin.pm,v 1.6 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -16,7 +16,6 @@ Echolot::Mailin - Incoming Mail Dispatcher for Echolot =cut use strict; -use warnings; use Carp qw{cluck}; use English; use Echolot::Globals; diff --git a/Echolot/Pinger.pm b/Echolot/Pinger.pm index 3f092d5..8fcc488 100644 --- a/Echolot/Pinger.pm +++ b/Echolot/Pinger.pm @@ -1,7 +1,7 @@ package Echolot::Pinger; # (c) 2002 Peter Palfrader -# $Id: Pinger.pm,v 1.11 2002/07/02 18:15:26 weasel Exp $ +# $Id: Pinger.pm,v 1.12 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -17,7 +17,6 @@ This package provides functions for sending out and receiving pings. =cut use strict; -use warnings; use Carp qw{cluck}; use English; use Echolot::Pinger::Mix; diff --git a/Echolot/Pinger/CPunk.pm b/Echolot/Pinger/CPunk.pm index 90b8b8a..598e13e 100644 --- a/Echolot/Pinger/CPunk.pm +++ b/Echolot/Pinger/CPunk.pm @@ -1,7 +1,7 @@ package Echolot::Pinger::CPunk; # (c) 2002 Peter Palfrader -# $Id: CPunk.pm,v 1.4 2002/07/02 18:03:55 weasel Exp $ +# $Id: CPunk.pm,v 1.5 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -17,7 +17,6 @@ This package provides functions for sending cypherpunk (type I) pings. =cut use strict; -use warnings; use Carp qw{cluck}; use English; use GnuPG::Interface; diff --git a/Echolot/Pinger/Mix.pm b/Echolot/Pinger/Mix.pm index 68fc42d..d68147c 100644 --- a/Echolot/Pinger/Mix.pm +++ b/Echolot/Pinger/Mix.pm @@ -1,7 +1,7 @@ package Echolot::Pinger::Mix; # (c) 2002 Peter Palfrader -# $Id: Mix.pm,v 1.3 2002/07/03 00:28:02 weasel Exp $ +# $Id: Mix.pm,v 1.4 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -17,7 +17,6 @@ This package provides functions for sending mixmaster (type II) pings. =cut use strict; -use warnings; use Carp qw{cluck}; use English; diff --git a/Echolot/Scheduler.pm b/Echolot/Scheduler.pm index 8bf700a..624a548 100644 --- a/Echolot/Scheduler.pm +++ b/Echolot/Scheduler.pm @@ -1,7 +1,7 @@ package Echolot::Scheduler; # (c) 2002 Peter Palfrader -# $Id: Scheduler.pm,v 1.8 2002/07/11 17:45:59 weasel Exp $ +# $Id: Scheduler.pm,v 1.9 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -20,7 +20,6 @@ the ping daemon. =cut use strict; -use warnings; use Carp qw{cluck}; my $ORDER = 1; diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm index 5dfc17d..3efc5e5 100644 --- a/Echolot/Stats.pm +++ b/Echolot/Stats.pm @@ -1,7 +1,7 @@ package Echolot::Stats; # (c) 2002 Peter Palfrader -# $Id: Stats.pm,v 1.20 2002/07/16 00:53:33 weasel Exp $ +# $Id: Stats.pm,v 1.21 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -18,7 +18,6 @@ and keyrings. =cut use strict; -use warnings; use Carp qw{cluck}; use constant DAYS => 12; diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm index fed07e3..e6b7a8d 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.36 2002/07/13 21:11:52 weasel Exp $ +# $Id: File.pm,v 1.37 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -19,13 +19,12 @@ This package provides several functions for data storage for echolot. =cut use strict; -use warnings; use Data::Dumper; use IO::Handle; use English; use Carp qw{cluck confess carp}; use Fcntl ':flock'; # import LOCK_* constants -use Fcntl ':seek'; # import LOCK_* constants +use Fcntl ':seek'; # import SEEK_* constants use Echolot::Tools; =item B (I<%args>) diff --git a/Echolot/Thesaurus.pm b/Echolot/Thesaurus.pm index b7d4a1b..c313036 100644 --- a/Echolot/Thesaurus.pm +++ b/Echolot/Thesaurus.pm @@ -1,7 +1,7 @@ package Echolot::Thesaurus; # (c) 2002 Peter Palfrader -# $Id: Thesaurus.pm,v 1.8 2002/07/15 20:18:29 weasel Exp $ +# $Id: Thesaurus.pm,v 1.9 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -17,7 +17,6 @@ This package provides necessary functions for the thesaurus. =cut use strict; -use warnings; use Carp qw{cluck}; use English; use HTML::Template; diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm index 36cf4cd..403c02b 100644 --- a/Echolot/Tools.pm +++ b/Echolot/Tools.pm @@ -1,7 +1,7 @@ package Echolot::Tools; # (c) 2002 Peter Palfrader -# $Id: Tools.pm,v 1.5 2002/07/10 22:16:12 weasel Exp $ +# $Id: Tools.pm,v 1.6 2002/07/16 02:48:57 weasel Exp $ # =pod @@ -16,7 +16,6 @@ Echolot::Tools - Tools for echolot =cut use strict; -use warnings; use Carp qw{cluck}; use Digest::MD5 qw{}; -- cgit v1.2.3