From 80f470fa23e97954a6b4db84888dac227e31065e Mon Sep 17 00:00:00 2001
From: Alexandr Ciornii <chorny@cpan.org>
Date: Sat, 4 Apr 2009 09:51:55 +0000
Subject: [PATCH] 3-arg open in Makefile.PL

---
 Makefile.PL | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index 021c07e..cae3c68 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -90,7 +90,7 @@ if ( 0 ) {
 		my ($dir, $file, $fh, $version);
 		print "Checking installed SQLite version...\n" if $ENV{AUTOMATED_TESTING};
 		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>) ) {
 				if (/\#define\s+SQLITE_VERSION_NUMBER\s+(\d+)/) {
@@ -104,7 +104,7 @@ if ( 0 ) {
 			foreach $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: $!";
+				open($fh, "<", $file) or die "Error opening $file: $!";
 				while ( defined($_ = <$fh>) ) {
 					if (/\#define\s+SQLITE_VERSION_NUMBER\s+(\d+)/) {
 						$version = $1;