Adding 01_compile.t.

Making calls to CORE::open explicit

4 files changed, 15 insertions, 2 deletions

diff --git a/lib/File/Flat.pm b/lib/File/Flat.pm
index 8d7021b..c1901d3 100644
--- a/lib/File/Flat.pm
+++ b/lib/File/Flat.pm
@@ -187,9 +187,9 @@ sub _slurp {
 	my $file = shift;
 	local $/ = undef;
 	local *SLURP;
-	open( SLURP, "<$file" ) or return undef;
+	CORE::open( SLURP, "<$file" ) or return undef;
 	my $source = <SLURP>;
-	close( SLURP ) or return undef;
+	CORE::close( SLURP ) or return undef;
 	\$source;
 }
 
diff --git a/t/01_compile.t b/t/01_compile.t
new file mode 100644
index 0000000..f7827af
--- /dev/null
+++ b/t/01_compile.t
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+
+use Test::More tests => 2;
+
+ok( $] >= 5.005, 'Perl version is new enough' );
+
+use_ok( 'File::Flat' );
diff --git a/t/01_api.t b/t/02_api.t
index ef0e4d2..ef0e4d2 100644
--- a/t/01_api.t
+++ b/t/02_api.t
diff --git a/t/02_main.t b/t/03_main.t
index 2f24119..2f24119 100644
--- a/t/02_main.t
+++ b/t/03_main.t