InstallPaths.pm in javonet-ruby-sdk-2.4.9

- old
+ new

@@ -1,14 +1,14 @@
 package ExtUtils::InstallPaths;
-$ExtUtils::InstallPaths::VERSION = '0.013';
-use 5.006;
+$ExtUtils::InstallPaths::VERSION = '0.014';
+use 5.008;
 use strict;
 use warnings;
 
 use File::Spec ();
 use Carp ();
-use ExtUtils::Config 0.002;
+use ExtUtils::Config 0.009;
 
 my %complex_accessors = map { $_ => 1 } qw/prefix_relpaths install_sets/;
 my %hash_accessors = map { $_ => 1 } qw/install_path install_base_relpaths original_prefix /;
 
 my %defaults = (
@@ -67,10 +67,13 @@
 );
 
 sub new {
 	my ($class, %args) = @_;
 	my $config = $args{config} || ExtUtils::Config->new;
+	if ($config->get('installsitescript') eq '') {
+		$config = $config->but({ installsitescript => $config->get('installsitebin') });
+	}
 	my %self = (
 		config => $config,
 		map { $_ => exists $args{$_} ? $filter{$_} ? $filter{$_}->($args{$_}, $config) : $args{$_} : ref $defaults{$_} ? $defaults{$_}->($config) : $defaults{$_} } keys %defaults,
 	);
 	$self{module_name} ||= do { my $module_name = $self{dist_name}; $module_name =~ s/-/::/g; $module_name } if defined $self{dist_name};
@@ -96,15 +99,14 @@
 		my $self = shift;
 		return $self->{$attribute};
 	};
 }
 
-my $script = $] > 5.008000 ? 'script' : 'bin';
 my @install_sets_keys = qw/lib arch bin script bindoc libdoc binhtml libhtml/;
-my @install_sets_tail = ('bin', $script, qw/man1dir man3dir html1dir html3dir/);
+my @install_sets_tail = qw/bin script man1dir man3dir html1dir html3dir/;
 my %install_sets_values = (
-	core   => [ qw/privlib archlib /, @install_sets_tail ],
+	core   => [ qw/privlib archlib/, @install_sets_tail ],
 	site   => [ map { "site$_" } qw/lib arch/, @install_sets_tail ],
 	vendor => [ map { "vendor$_" } qw/lib arch/, @install_sets_tail ],
 );
 
 sub _default_install_sets {
@@ -402,10 +404,10 @@
 
 ExtUtils::InstallPaths - Build.PL install path logic made easy
 
 =head1 VERSION
 
-version 0.013
+version 0.014
 
 =head1 SYNOPSIS
 
  use ExtUtils::InstallPaths;
  use ExtUtils::Install 'install';