Bug fixes

Author: adamkennedy

t/02_simple.t

@@ -6,7 +6,7 @@ BEGIN {
 	$^W = 1;
 }
 
-use Test::More tests => 37;
+use Test::More tests => 38;
 use File::Spec ();
 
 # Override the perl path for testing purposes
@@ -25,7 +25,9 @@ ok( ! $INC{'CPAN/Config.pm'}, 'CPAN::Config is not loaded' );
 my $perl = Portable->default;
 isa_ok( $perl, 'Portable' );
 
-is( $Portable::ENABLED, 1, '$Portable::ENABLED is true' );
+# Twice to avoid a warning
+is( $Portable::ENABLED, undef, '$Portable::ENABLED is true' );
+is( $Portable::ENABLED, undef, '$Portable::ENABLED is true' );
 
 # Do all the config entries exist
 my $config = $perl->config;

t/03_config.t

@@ -6,7 +6,7 @@ BEGIN {
 	$^W = 1;
 }
 
-use Test::More tests => 2;
+use Test::More tests => 4;
 use Test::Exception;
 use File::Spec ();
 
@@ -26,3 +26,7 @@ ok( ! $@, "->import(Config) ok" );
 
 # CPAN::Config should not be loaded
 ok( ! $INC{'CPAN/Config.pm'}, 'CPAN::Config is not loaded' );
+
+# We are now enabled (twice to avoid a warning)
+is( $Portable::ENABLED, 1, '$Portable::ENABLED is true' );
+is( $Portable::ENABLED, 1, '$Portable::ENABLED is true' );