Adding 01_compile.t.

Making calls to CORE::open explicit

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/File/Flat.pm b/lib/File/Flat.pm
index c1901d3..512ca6f 100644
--- a/lib/File/Flat.pm
+++ b/lib/File/Flat.pm
@@ -172,7 +172,7 @@ sub getReadWriteHandle { $_[0]->open( '+<', $_[1] ) }
 # Returns undef on error.
 sub slurp {
 	my $class = shift;
-	my $file = shift or return undef;
+	my $file  = shift or return undef;
 
 	# Check the file
 	$class->canOpen( $file )
@@ -198,7 +198,7 @@ sub _slurp {
 # the calling context.
 sub read {
 	my $class = shift;
-	my $file = shift or return;
+	my $file  = shift or return;
 
 	# Check the file
 	unless ( $class->canOpen( $file ) ) {
@@ -207,13 +207,13 @@ sub read {
 	}
 
 	# Load the file
-	unless ( open(FILE, $file) ) {
+	unless ( CORE::open(FILE, $file) ) {
 		$class->_error( "Unable to open file '$file'" );
 		return;
 	}
 	my @content = <FILE>;
 	chomp @content;
-	close(FILE);
+	CORE::close(FILE);
 
 	wantarray ? @content : \@content;
 }