<pre style='margin:0'>
David B. Evans (dbevans) pushed a commit to branch master
in repository macports-ports.
</pre>
<p><a href="https://github.com/macports/macports-ports/commit/acbe745f8cc86d4c9bc4bcc1deed5dd68b9341e5">https://github.com/macports/macports-ports/commit/acbe745f8cc86d4c9bc4bcc1deed5dd68b9341e5</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new acbe745 clusterssh: drop github, build using perl5.use_module_build
</span>acbe745 is described below
<span style='display:block; white-space:pre;color:#808000;'>commit acbe745f8cc86d4c9bc4bcc1deed5dd68b9341e5
</span>Author: David B. Evans <devans@macports.org>
AuthorDate: Sun Mar 10 15:50:22 2019 -0700
<span style='display:block; white-space:pre;color:#404040;'> clusterssh: drop github, build using perl5.use_module_build
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> * add +perl5_26, +perl5_28 variants, default +perl5_26
</span><span style='display:block; white-space:pre;color:#404040;'> * patch perl untidiness so that perltidy test passes
</span><span style='display:block; white-space:pre;color:#404040;'> * all tests can now be run successfully
</span><span style='display:block; white-space:pre;color:#404040;'> * fixup shebangs in installed scripts to track variant
</span><span style='display:block; white-space:pre;color:#404040;'> * add noarch
</span>---
sysutils/clusterssh/Portfile | 52 +++++---
.../clusterssh/files/patch-perl-untidiness.diff | 144 +++++++++++++++++++++
2 files changed, 176 insertions(+), 20 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/sysutils/clusterssh/Portfile b/sysutils/clusterssh/Portfile
</span><span style='display:block; white-space:pre;color:#808080;'>index c27d254..1c3120e 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/sysutils/clusterssh/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/sysutils/clusterssh/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,11 +1,21 @@
</span> # -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:filetype=tcl:et:sw=4:ts=4:sts=4
PortSystem 1.0
<span style='display:block; white-space:pre;background:#ffe0e0;'>-PortGroup github 1.0
</span> PortGroup perl5 1.0
<span style='display:block; white-space:pre;background:#ffe0e0;'>-github.setup duncs clusterssh 4.13.2 release-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-revision 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.require_variant yes
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.conflict_variants yes
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.branches 5.26 5.28
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.default_branch 5.26
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.create_variants ${perl5.branches}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# since variants are set to conflict (only one can be installed at a time)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# omit version suffixes on linked binaries
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.link_binaries_suffix
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+name clusterssh
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.setup App-ClusterSSH v4.13.2
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+revision 2
</span> platforms darwin
categories sysutils
license {Artistic-1 GPL}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -18,27 +28,16 @@ long_description ClusterSSH controls a number of xterm windows via a \
</span> be interactively run on multiple servers over an ssh \
connection.
<span style='display:block; white-space:pre;background:#ffe0e0;'>-checksums rmd160 d85dd5d46aac50590ac9e9726b55c30551c574cc \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sha256 9cb9db9d0eff9f308599f8fb5dbeeaedea91248001346d1ae9b06e921bd0d31f \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- size 84805
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-perl5.branches 5.28
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-configure.args Build.PL --installdirs vendor
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-configure.cmd ${prefix}/bin/perl${perl5.major}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-configure.pre_args {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-build.cmd ./Build
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-build.pre_args {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+checksums rmd160 b1fbaf82efc56881970acd12c4da455a39e03eaf \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ sha256 b71a6e65a6d98d8903310c4cdfdfd859040129932d5a251280e173e1c615b366 \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ size 103412
</span>
<span style='display:block; white-space:pre;background:#ffe0e0;'>-destroot.cmd ./Build
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-destroot.args destdir=${destroot}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-depends_build port:p${perl5.major}-cpan-changes \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# don't overwrite portgroup defined dependencies
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+depends_build-append \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ port:p${perl5.major}-cpan-changes \
</span> port:p${perl5.major}-extutils-install \
port:p${perl5.major}-file-slurp \
port:p${perl5.major}-file-which \
<span style='display:block; white-space:pre;background:#ffe0e0;'>- port:p${perl5.major}-module-build \
</span> port:p${perl5.major}-perl-tidy \
port:p${perl5.major}-readonly \
port:p${perl5.major}-test-differences \
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -60,3 +59,16 @@ depends_lib port:p${perl5.major}-exception-class \
</span> port:p${perl5.major}-x11-protocol-other \
port:p${perl5.major}-xsloader \
port:xterm
<span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# patch perl untidiness so that perltidy test passes
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+patchfiles patch-perl-untidiness.diff
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# fixup shebangs in installed perl scripts
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+post-patch {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ foreach script [glob ${worksrcpath}/bin_PL/*] {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ reinplace "s|^#!.*|#!${perl5.bin}|" $script
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.use_module_build
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+supported_archs noarch
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/sysutils/clusterssh/files/patch-perl-untidiness.diff b/sysutils/clusterssh/files/patch-perl-untidiness.diff
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 0000000..2a95e79
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/sysutils/clusterssh/files/patch-perl-untidiness.diff
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,144 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- lib/App/ClusterSSH.pm 2018-03-14 12:40:56.000000000 -0700
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ lib/App/ClusterSSH.pm.tdy 2019-03-10 16:22:56.000000000 -0700
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -1667,7 +1667,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ -class => 'cssh',
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- my @tags = $self->cluster->list_tags();
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ my @tags = $self->cluster->list_tags();
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ my @external_tags = map {"$_ *"} $self->cluster->list_external_clusters();
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ push( @tags, @external_tags );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -2106,7 +2106,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ eval { require XML::Simple; };
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ die 'Cannot load XML::Simple - has it been installed? ', $@ if ($@);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- my $xml = XML::Simple->new( ForceArray => 1, );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ my $xml = XML::Simple->new( ForceArray => 1, );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ my $menu_xml = $xml->XMLin( $self->config->{send_menu_xml_file} );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $self->debug( 3, 'xml send menu: ', $/, $xml->XMLout($menu_xml) );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- t/02base.t 2018-03-14 12:40:56.000000000 -0700
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ t/02base.t.tdy 2019-03-10 16:22:56.000000000 -0700
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -21,10 +21,10 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ trap {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $base->stdout_output('testing');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ };
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->leaveby, 'return', 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->die, undef, 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->stdout =~ tr/\n//, 1, 'got correct number of print lines' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->leaveby, 'return', 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->die, undef, 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->stdout =~ tr/\n//, 1, 'got correct number of print lines' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ like( $trap->stdout, qr/\Atesting\n\Z/xsm,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ 'checking for expected print output' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -68,10 +68,10 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $base = App::ClusterSSH::Base->new( debug => 6, );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ };
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ isa_ok( $base, 'App::ClusterSSH::Base' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->leaveby, 'return', 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->die, undef, 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->stdout =~ tr/\n//, 1, 'got new() debug output lines' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->leaveby, 'return', 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->die, undef, 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->stdout =~ tr/\n//, 1, 'got new() debug output lines' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ like(
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $trap->stdout,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ qr/^Setting\slanguage\sto\s"en"/xsm,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -83,10 +83,10 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $base = App::ClusterSSH::Base->new( debug => 6, lang => 'en' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ };
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ isa_ok( $base, 'App::ClusterSSH::Base' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->leaveby, 'return', 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->die, undef, 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->stdout =~ tr/\n//, 1, 'got new() debug output lines' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->leaveby, 'return', 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->die, undef, 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->stdout =~ tr/\n//, 1, 'got new() debug output lines' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ like(
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $trap->stdout,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ qr/^Setting\slanguage\sto\s"en"/xsm,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -98,10 +98,10 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $base = App::ClusterSSH::Base->new( debug => 6, lang => 'rubbish' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ };
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ isa_ok( $base, 'App::ClusterSSH::Base' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->leaveby, 'return', 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->die, undef, 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->stdout =~ tr/\n//, 1, 'got new() debug output lines' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->leaveby, 'return', 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->die, undef, 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->stdout =~ tr/\n//, 1, 'got new() debug output lines' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ like(
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $trap->stdout,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ qr/^Setting\slanguage\sto\s"rubbish"/xsm,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -113,10 +113,10 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $base = App::ClusterSSH::Base->new( debug => 7, );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ };
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ isa_ok( $base, 'App::ClusterSSH::Base' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->leaveby, 'return', 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->die, undef, 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-is( $trap->stdout =~ tr/\n//, 3, 'got new() debug output lines' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->leaveby, 'return', 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->die, undef, 'returned ok' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++is( $trap->stdout =~ tr/\n//, 3, 'got new() debug output lines' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ like(
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $trap->stdout,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ qr/^Setting\slanguage\sto\s"en".Arguments\sto\sApp::ClusterSSH::Base->new.*debug\s=>\s7,$/xsm,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- t/05getopts.t 2018-03-14 12:40:56.000000000 -0700
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ t/05getopts.t.tdy 2019-03-10 16:22:56.000000000 -0700
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -287,7 +287,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ is( $trap->die, undef, 'Expecting no die message' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ my $pod;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-@ARGV = ('--generate-pod');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++@ARGV = ('--generate-pod');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $getopts = App::ClusterSSH::Getopt->new( parent => $mock_object );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $getopts->add_option(
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ spec => 'long_opt|l=s',
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -309,7 +309,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ is( $trap->die, undef, 'Expecting no die message' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-@ARGV = ('--help');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++@ARGV = ('--help');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $getopts = App::ClusterSSH::Getopt->new( parent => $mock_object );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ trap {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $getopts->getopts;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -320,7 +320,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ is( $trap->die, undef, 'Expecting no die message' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-@ARGV = ('-?');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++@ARGV = ('-?');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $getopts = App::ClusterSSH::Getopt->new( parent => $mock_object );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ trap {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $getopts->getopts;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -331,7 +331,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ is( $trap->die, undef, 'Expecting no die message' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-@ARGV = ('-v');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++@ARGV = ('-v');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $getopts = App::ClusterSSH::Getopt->new( parent => $mock_object );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ trap {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $getopts->getopts;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -342,7 +342,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ is( $trap->stderr, '', 'Expecting no STDERR' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ is( $trap->die, undef, 'Expecting no die message' );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-@ARGV = ('-@');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++@ARGV = ('-@');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $getopts = App::ClusterSSH::Getopt->new( parent => $mock_object );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ trap {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $getopts->getopts;
</span></pre><pre style='margin:0'>
</pre>