Fix build error on 4.x with perl5.005.

1 files changed, 41 insertions, 0 deletions

diff --git a/databases/p5-DBD-SQLite/files/patch-Makefile.PL b/databases/p5-DBD-SQLite/files/patch-Makefile.PL
new file mode 100644
index 000000000000..099baf8a17dd
--- /dev/null
+++ b/databases/p5-DBD-SQLite/files/patch-Makefile.PL
@@ -0,0 +1,41 @@
+--- Makefile.PL.orig	Sat Aug  6 02:15:09 2005
++++ Makefile.PL	Sat Dec  3 13:28:17 2005
+@@ -65,31 +65,31 @@
+ 
+ # Now, check for a compatible sqlite3
+ unless ($force_local) {
+-    my ($dir, $file, $fh, $version);
++    my ($dir, $file, $version);
+     print "Checking installed SQLite version...\n";
+     if ($sqlite_inc) {
+-        open($fh, '< ' . File::Spec->catfile($sqlite_inc, 'sqlite3.h'))
++        open(FH, '< ' . File::Spec->catfile($sqlite_inc, 'sqlite3.h'))
+             or die "Error opening sqlite3.h in $sqlite_inc: $!";
+-        while (defined($_ = <$fh>)) {
++        while (defined($_ = <FH>)) {
+             if (/\#define\s+SQLITE_VERSION_NUMBER\s+(\d+)/) {
+                 $version = $1;
+                 last;
+             }
+         }
+-        close($fh);
++        close(FH);
+     } else {
+         # Go hunting for the file (Matt: Add more dirs here as you see fit)
+         for $dir ([ qw(usr include) ], [ qw(usr local include) ]) {
+             $file = File::Spec->catfile('', @$dir, 'sqlite3.h');
+             next unless (-f $file);
+-            open($fh, "< $file") or die "Error opening $file: $!";
+-            while (defined($_ = <$fh>)) {
++            open(FH, "< $file") or die "Error opening $file: $!";
++            while (defined($_ = <FH>)) {
+                 if (/\#define\s+SQLITE_VERSION_NUMBER\s+(\d+)/) {
+                     $version = $1;
+                     last;
+                 }
+             }
+-            close($fh);
++            close(FH);
+             last if $version;
+         }
+     }