release Portable-1.21

Author: kmx

Changes

@@ -1,5 +1,8 @@
 Changes for Perl extension Portable.
 
+1.21 Wed 9 Apr 2014
+	- avoiding Carp (due to Carp reload failures)
+
 1.20 Mon 7 Apr 2014
 	- missing test files
 

lib/CPAN/Mini/Portable.pm

@@ -6,7 +6,7 @@ use warnings;
 use Portable         ();
 use CPAN::Mini 0.575 ();
 
-our $VERSION = '1.20';
+our $VERSION = '1.21';
 our @ISA     = 'CPAN::Mini';
 
 sub new {

lib/Portable.pm

@@ -51,11 +51,10 @@ more details on how it works...
 use 5.008;
 use strict;
 use warnings;
-use Carp                   ();
 use Parse::CPAN::Meta 1.39 ();
 use Portable::FileSpec;
 
-our $VERSION = '1.20';
+our $VERSION = '1.21';
 
 # This variable is provided exclusively for the
 # use of test scripts.
@@ -137,16 +136,16 @@ sub new {
 
 	# Param checking
 	unless ( exists $self->{dist_volume} ) {
-		Carp::croak('Missing or invalid dist_volume param');
+		die('Missing or invalid dist_volume param');
 	}
 	unless ( _STRING($self->dist_dirs) ) {
-		Carp::croak('Missing or invalid dist_dirs param');
+		die('Missing or invalid dist_dirs param');
 	}
 	unless ( _STRING($self->dist_root) ) {
-		Carp::croak('Missing or invalid dist_root param');
+		die('Missing or invalid dist_root param');
 	}
 	unless ( _HASH($self->{portable}) ) {
-		Carp::croak('Missing or invalid portable param');
+		die('Missing or invalid portable param');
 	}
 
 	# Compulsory support for Config.pm
@@ -196,7 +195,7 @@ sub default {
 		} reverse ( 0 .. $#d );
 	my $dist_dirs = $tmp[0];
 	unless ( defined $dist_dirs ) {
-		Carp::croak("Failed to find the portable.perl file");
+		die("Failed to find the portable.perl file");
 	}
 
 	# Derive the main paths from the plain dirs
@@ -206,7 +205,7 @@ sub default {
 	# Load the YAML file
 	my $portable = Parse::CPAN::Meta::LoadFile( $conf );
 	unless ( _HASH($portable) ) {
-		Carp::croak("Missing or invalid portable.perl file");
+		die("Missing or invalid portable.perl file");
 	}
 
 	# Hand off to the main constructor,

lib/Portable/CPAN.pm

@@ -3,10 +3,9 @@ package Portable::CPAN;
 use 5.008;
 use strict;
 use warnings;
-use Carp            ();
 use Portable::FileSpec;
 
-our $VERSION = '1.20';
+our $VERSION = '1.21';
 
 # Create the enumerations
 our %bin  = map { $_ => 1 } qw{
@@ -31,7 +30,7 @@ sub new {
 	my $class  = shift;
 	my $parent = shift;
 	unless ( Portable::_HASH($parent->portable_cpan) ) {
-		Carp::croak('Missing or invalid cpan key in portable.perl');
+		die('Missing or invalid cpan key in portable.perl');
 	}
 
 	# Create the object

lib/Portable/Config.pm

@@ -3,10 +3,9 @@ package Portable::Config;
 use 5.008;
 use strict;
 use warnings;
-use Carp ();
 use Portable::FileSpec;
 
-our $VERSION = '1.20';
+our $VERSION = '1.21';
 
 #####################################################################
 # Constructor
@@ -15,7 +14,7 @@ sub new {
 	my $class  = shift;
 	my $parent = shift;
 	unless ( Portable::_HASH($parent->portable_config) ) {
-		Carp::croak('Missing or invalid config key in portable.perl');
+		die('Missing or invalid config key in portable.perl');
 	}
 
 	# Create the object

lib/Portable/FileSpec.pm

@@ -6,7 +6,7 @@ use 5.008;
 use strict;
 use warnings;
 
-our $VERSION = '1.20';
+our $VERSION = '1.21';
 
 # Some regexes we use for path splitting
 my $DRIVE_RX = '[a-zA-Z]:';

lib/Portable/HomeDir.pm

@@ -5,12 +5,9 @@ package Portable::HomeDir;
 use 5.008;
 use strict;
 use warnings;
-use Carp                       ();
-use Scalar::Util          1.21 ();
-use File::HomeDir::Driver 0.86 ();
 use Portable::FileSpec;
 
-our $VERSION = '1.20';
+our $VERSION = '1.21';
 
 #####################################################################
 # Portable Driver API
@@ -19,7 +16,7 @@ sub new {
 	my $class  = shift;
 	my $parent = shift;
 	unless ( Portable::_HASH($parent->portable_homedir) ) {
-		Carp::croak('Missing or invalid HomeDir key in portable.perl');
+		die('Missing or invalid HomeDir key in portable.perl');
 	}
 
 	# Create the object

lib/Portable/minicpan.pm

@@ -3,10 +3,9 @@ package Portable::minicpan;
 use 5.008;
 use strict;
 use warnings;
-use Carp            ();
 use Portable::FileSpec;
 
-our $VERSION = '1.20';
+our $VERSION = '1.21';
 
 #####################################################################
 # Portable Driver API
@@ -15,7 +14,7 @@ sub new {
 	my $class  = shift;
 	my $parent = shift;
 	unless ( Portable::_HASH($parent->portable_minicpan) ) {
-		Carp::croak('Missing or invalid minicpan key in portable.perl');
+		die('Missing or invalid minicpan key in portable.perl');
 	}
 
 	# Create the object