Fix for perl 5.005_03

Simplified from:
PR:		52094
Submitted by:	Mathieu Arnold <m@absolight.net>
Approved by:	maintainer

2 files changed, 115 insertions, 0 deletions

diff --git a/mail/pflogstats/files/patch-pflogstats.pl b/mail/pflogstats/files/patch-pflogstats.pl
new file mode 100644
index 000000000000..dba4dd60db96
--- /dev/null
+++ b/mail/pflogstats/files/patch-pflogstats.pl
@@ -0,0 +1,72 @@
+--- pflogstats.pl.orig	Fri Apr  4 15:29:35 2003
++++ pflogstats.pl	Mon May 12 10:37:46 2003
+@@ -1,4 +1,4 @@
+-#!/usr/bin/perl -W
++#!/usr/bin/perl
+ 
+ ###
+ # Project:     pflogstats
+@@ -30,10 +30,7 @@
+ # ***** Sorry for some coding confusion, this is a developer version *****
+ 
+ # Minium required Perl version
+-require 5.6.0;
+-
+-#use warnings; # to be done later
+-#use strict; # to be done later
++require 5.00503;
+ 
+ # Global used Perl modules
+ use Time::Local;
+@@ -43,8 +40,9 @@
+ 
+ 
+ ## Name and version
+-my $release = "20030404.AERAsec";
+-our $progName = "pflogstats.pl";
++use vars qw{$release $progName};
++$release = "20030404.AERAsec";
++$progName = "pflogstats.pl";
+ 
+ 
+ ## Defines before module loader
+@@ -62,9 +60,7 @@
+ ## Define global variables
+ 
+ # option handling
+-our %options;
+-our %opts;
+-our %types;
++use vars qw{%options %opts %types}; 
+ 
+ # Default value
+ $types{'default'} = 0;
+@@ -73,11 +69,12 @@
+ $types{'test_verp_mung'} = 0;
+ 
+ # module hooks
+-our %hooks;
++use vars qw{%hooks};
+ 
+ # Format options
+-our @opt_format; # from option parsing
+-our %format; # used format
++use vars qw{@opt_format %format};
++# @opt_format; # from option parsing
++# %format; # used format
+ 
+ my @opt_types;
+ my $isoDateTime;
+@@ -143,10 +140,10 @@
+ #exit 0;
+ 
+ # Number formats
+-our %numberformat;
++use vars qw{%numberformat};
+ 
+ # Time range of logdata
+-our ($timemin, $timemax);
++use vars qw{$timemin, $timemax};
+ my ($time);
+ 
+ 
diff --git a/mail/pflogstats/files/patch-sqwmstats.pl b/mail/pflogstats/files/patch-sqwmstats.pl
new file mode 100644
index 000000000000..ce584bf269b3
--- /dev/null
+++ b/mail/pflogstats/files/patch-sqwmstats.pl
@@ -0,0 +1,43 @@
+--- sqwmstats.pl.orig	Fri Apr  4 15:29:35 2003
++++ sqwmstats.pl	Mon May 12 10:38:01 2003
+@@ -1,4 +1,4 @@
+-#!/usr/bin/perl -W
++#!/usr/bin/perl
+ 
+ ###
+ # Project:     pflogstats
+@@ -32,28 +32,27 @@
+ ###
+ 
+ 
+-use warnings;
+ use strict;
+ 
+ ## Name and version
+-my $release = "0.03";
+-our $progName = "sqwmstats.pl";
++use vars qw{$release $progName};
++$release = "0.03";
++$progName = "sqwmstats.pl";
+ 
+ 
+ ## Define global variables
+ 
+ # option handling
+-our %options;
+-our %opts;
++use vars qw{%options %opts};
+ 
+ $options{'help|h|?'}  = \$opts{'help'};
+ $options{"version"}  = \$opts{'version'};
+ 
+ # module hooks
+-our %hooks;
++use vars qw{%hooks};
+ 
+ # Number formats
+-our %numberformat;
++use vars qw{%numberformat};
+ 
+ ## Module loader
+ # General