mirror of
https://git.freebsd.org/ports.git
synced 2025-07-06 03:49:14 -04:00
41 lines
1.5 KiB
Perl
41 lines
1.5 KiB
Perl
--- 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;
|
|
}
|
|
}
|