kpriv/freebsd-ports
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Norikatsu Shigemura 2005-12-03 04:31:08 +00:00
parent 4a845fba54
commit c5dac1c785
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=150283
1 changed files with 41 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
databases/p5-DBD-SQLite/files/patch-Makefile.PL Normal file
View file

@ -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;
}
}