javonet-ruby-sdk 2.4.3 → 2.4.5

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/ExtUtils/Helpers/Unix.pm

@@ -1,13 +1,14 @@
 package ExtUtils::Helpers::Unix;
-$ExtUtils::Helpers::Unix::VERSION = '0.026';
+$ExtUtils::Helpers::Unix::VERSION = '0.027';
 use strict;
 use warnings FATAL => 'all';
 
 use Exporter 5.57 'import';
-our @EXPORT = qw/make_executable detildefy/;
+our @EXPORT = qw/make_executable split_like_shell detildefy/;
 
 use Carp qw/croak/;
 use Config;
+use Text::ParseWords 3.24 qw/shellwords/;
 
 my $layer = $] >= 5.008001 ? ":raw" : "";
 
@@ -30,6 +31,16 @@ sub make_executable {
 	return;
 }
 
+sub split_like_shell {
+	my ($string) = @_;
+
+	return if not defined $string;
+	$string =~ s/^\s+|\s+$//g;
+	return if not length $string;
+
+	return shellwords($string);
+}
+
 sub detildefy {
 	my $value = shift;
 	# tilde with optional username
@@ -56,7 +67,7 @@ ExtUtils::Helpers::Unix - Unix specific helper bits
 
 =head1 VERSION
 
-version 0.026
+version 0.027
 
 =for Pod::Coverage make_executable
 split_like_shell

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/ExtUtils/Helpers/VMS.pm

@@ -1,11 +1,12 @@
 package ExtUtils::Helpers::VMS;
-$ExtUtils::Helpers::VMS::VERSION = '0.026';
+$ExtUtils::Helpers::VMS::VERSION = '0.027';
 use strict;
 use warnings FATAL => 'all';
 
 use Exporter 5.57 'import';
-our @EXPORT = qw/make_executable detildefy/;
+our @EXPORT = qw/make_executable split_like_shell detildefy/;
 
+use ExtUtils::Helpers::Unix qw/split_like_shell/; # Probably very wrong, but whatever
 use File::Copy qw/copy/;
 
 sub make_executable {
@@ -88,7 +89,7 @@ ExtUtils::Helpers::VMS - VMS specific helper bits
 
 =head1 VERSION
 
-version 0.026
+version 0.027
 
 =for Pod::Coverage make_executable
 detildefy

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/ExtUtils/Helpers/Windows.pm

@@ -1,10 +1,10 @@
 package ExtUtils::Helpers::Windows;
-$ExtUtils::Helpers::Windows::VERSION = '0.026';
+$ExtUtils::Helpers::Windows::VERSION = '0.027';
 use strict;
 use warnings FATAL => 'all';
 
 use Exporter 5.57 'import';
-our @EXPORT = qw/make_executable detildefy/;
+our @EXPORT = qw/make_executable split_like_shell detildefy/;
 
 use Config;
 use Carp qw/carp croak/;
@@ -18,6 +18,61 @@ sub make_executable {
 	return;
 }
 
+sub split_like_shell {
+	# As it turns out, Windows command-parsing is very different from
+	# Unix command-parsing.	Double-quotes mean different things,
+	# backslashes don't necessarily mean escapes, and so on.	So we
+	# can't use Text::ParseWords::shellwords() to break a command string
+	# into words.	The algorithm below was bashed out by Randy and Ken
+	# (mostly Randy), and there are a lot of regression tests, so we
+	# should feel free to adjust if desired.
+
+	local ($_) = @_;
+
+	my @argv;
+	return @argv unless defined && length;
+
+	my $arg = '';
+	my ($i, $quote_mode ) = ( 0, 0 );
+
+	while ( $i < length ) {
+
+		my $ch      = substr $_, $i, 1;
+		my $next_ch = substr $_, $i+1, 1;
+
+		if ( $ch eq '\\' && $next_ch eq '"' ) {
+			$arg .= '"';
+			$i++;
+		} elsif ( $ch eq '\\' && $next_ch eq '\\' ) {
+			$arg .= '\\';
+			$i++;
+		} elsif ( $ch eq '"' && $next_ch eq '"' && $quote_mode ) {
+			$quote_mode = !$quote_mode;
+			$arg .= '"';
+			$i++;
+		} elsif ( $ch eq '"' && $next_ch eq '"' && !$quote_mode &&
+				( $i + 2 == length() || substr( $_, $i + 2, 1 ) eq ' ' )
+			) { # for cases like: a"" => [ 'a' ]
+			push @argv, $arg;
+			$arg = '';
+			$i += 2;
+		} elsif ( $ch eq '"' ) {
+			$quote_mode = !$quote_mode;
+		} elsif ( $ch =~ /\s/ && !$quote_mode ) {
+			push @argv, $arg if $arg;
+			$arg = '';
+			++$i while substr( $_, $i + 1, 1 ) =~ /\s/;
+		} else {
+			$arg .= $ch;
+		}
+
+		$i++;
+	}
+
+	push @argv, $arg if defined $arg && length $arg;
+	return @argv;
+}
+
 sub detildefy {
 	my $value = shift;
 	$value =~ s{ ^ ~ (?= [/\\] | $ ) }[$ENV{USERPROFILE}]x if $ENV{USERPROFILE};
@@ -40,7 +95,7 @@ ExtUtils::Helpers::Windows - Windows specific helper bits
 
 =head1 VERSION
 
-version 0.026
+version 0.027
 
 =for Pod::Coverage make_executable
 split_like_shell

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/ExtUtils/Helpers.pm

@@ -1,5 +1,5 @@
 package ExtUtils::Helpers;
-$ExtUtils::Helpers::VERSION = '0.026';
+$ExtUtils::Helpers::VERSION = '0.027';
 use strict;
 use warnings FATAL => 'all';
 use Exporter 5.57 'import';
@@ -7,7 +7,6 @@ use Exporter 5.57 'import';
 use Config;
 use File::Basename qw/basename/;
 use File::Spec::Functions qw/splitpath canonpath abs2rel splitdir/;
-use Text::ParseWords 3.24 ();
 
 our @EXPORT_OK = qw/make_executable split_like_shell man1_pagename man3_pagename detildefy/;
 
@@ -19,16 +18,6 @@ BEGIN {
 	"ExtUtils::Helpers::$impl"->import();
 }
 
-sub split_like_shell {
-	my ($string) = @_;
-
-	return if not defined $string;
-	$string =~ s/^\s+|\s+$//g;
-	return if not length $string;
-
-	return Text::ParseWords::shellwords($string);
-}
-
 sub man1_pagename {
 	my $filename = shift;
 	return basename($filename).".$Config{man1ext}";
@@ -67,7 +56,7 @@ ExtUtils::Helpers - Various portability utilities for module builders
 
 =head1 VERSION
 
-version 0.026
+version 0.027
 
 =head1 SYNOPSIS