| Subject: | Perl 5.004 compatibility patch |
Hello,
Attached is a small patch to make Geo::IP::PurePerl works with
Perl 5.004 (and maybe even earlier versions).
Regards
--
Close the world, txEn eht nepO.
| Subject: | Geo-IP-PurePerl-1.17-perl5.4.patch |
Seulement dans Geo-IP-PurePerl-1.17: blib
diff -ru Geo-IP-PurePerl-1.17-orig/lib/Geo/IP/PurePerl.pm Geo-IP-PurePerl-1.17/lib/Geo/IP/PurePerl.pm
--- Geo-IP-PurePerl-1.17-orig/lib/Geo/IP/PurePerl.pm 2005-08-09 17:53:03.000000000 +0200
+++ Geo-IP-PurePerl-1.17/lib/Geo/IP/PurePerl.pm 2006-05-13 15:05:09.426619587 +0200
@@ -1,6 +1,8 @@
package Geo::IP::PurePerl;
use strict;
+use FileHandle;
+
use vars qw(@ISA $VERSION @EXPORT);
use constant FULL_RECORD_LENGTH => 50;
@@ -53,7 +55,7 @@
die "Geo::IP::PurePerl::open() requires a path name"
unless( @_ > 1 and $_[1] );
my ($class, $db_file, $flags) = @_;
- my $fh;
+ my $fh = new FileHandle;
my $gi;
CORE::open $fh, "$db_file" or die "Error opening $db_file";
binmode($fh);