PSARC/2013/273 cssh version 4.02_01 s11-update
authorNorm Jacobs <Norm.Jacobs@Oracle.COM>
Thu, 20 Feb 2014 12:41:02 -0800
branchs11-update
changeset 2960 7e16a1a5efac
parent 2959 436698adc770
child 2961 ab10ab982328
PSARC/2013/273 cssh version 4.02_01 16569274 cssh desired for Userland
components/perl_modules/cssh/Makefile
components/perl_modules/cssh/cssh-PERLVER.p5m
components/perl_modules/cssh/cssh.license
components/perl_modules/cssh/patches/001-no-exception.patch
components/perl_modules/cssh/patches/002-pod2text.patch
components/perl_modules/cssh/resolve.deps
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/components/perl_modules/cssh/Makefile	Thu Feb 20 12:41:02 2014 -0800
@@ -0,0 +1,54 @@
+#
+# CDDL HEADER START
+#
+# The contents of this file are subject to the terms of the
+# Common Development and Distribution License (the "License").
+# You may not use this file except in compliance with the License.
+#
+# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+# or http://www.opensolaris.org/os/licensing.
+# See the License for the specific language governing permissions
+# and limitations under the License.
+#
+# When distributing Covered Code, include this CDDL HEADER in each
+# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+# If applicable, add the following below this CDDL HEADER, with the
+# fields enclosed by brackets "[]" replaced with your own identifying
+# information: Portions Copyright [yyyy] [name of copyright owner]
+#
+# CDDL HEADER END
+#
+# Copyright (c) 2014, Oracle and/or its affiliates. All rights reserved.
+#
+include ../../../make-rules/shared-macros.mk
+
+COMPONENT_NAME=		App-ClusterSSH
+COMPONENT_VERSION=	4.2.1
+HUMAN_VERSION=		4.02_01
+COMPONENT_SRC=		$(COMPONENT_NAME)-$(HUMAN_VERSION)
+COMPONENT_ARCHIVE=	$(COMPONENT_SRC).tar.gz
+COMPONENT_ARCHIVE_HASH=	\
+    sha256:4f1c1fc151f4dc38d3f5e5803fb39a2eee15b797650ca94cd6f673a670cdaad5
+# This project is registered on SourceForge and CPAN
+COMPONENT_PROJECT_URL=	http://sourceforge.net/projects/clusterssh/
+COMPONENT_ARCHIVE_URL=	http://downloads.sourceforge.net/project/clusterssh/2.%20ClusterSSH%20Series%204/$(COMPONENT_ARCHIVE)
+COMPONENT_BUGDB=	utility/cssh
+
+# Only build for the default version, since 5.8.4 is almost dead
+PERL_VERSIONS = $(PERL_VERSION)
+
+include $(WS_TOP)/make-rules/prep.mk
+include $(WS_TOP)/make-rules/ips.mk
+include $(WS_TOP)/make-rules/makemaker.mk
+
+ASLR_MODE = $(ASLR_NOT_APPLICABLE)
+
+build:		$(BUILD_32)
+
+install:	$(INSTALL_32)
+
+test:		$(NO_TESTS)
+
+BUILD_PKG_DEPENDENCIES =	$(BUILD_TOOLS)
+
+include $(WS_TOP)/make-rules/depend.mk
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/components/perl_modules/cssh/cssh-PERLVER.p5m	Thu Feb 20 12:41:02 2014 -0800
@@ -0,0 +1,73 @@
+#
+# CDDL HEADER START
+#
+# The contents of this file are subject to the terms of the
+# Common Development and Distribution License (the "License").
+# You may not use this file except in compliance with the License.
+#
+# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+# or http://www.opensolaris.org/os/licensing.
+# See the License for the specific language governing permissions
+# and limitations under the License.
+#
+# When distributing Covered Code, include this CDDL HEADER in each
+# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+# If applicable, add the following below this CDDL HEADER, with the
+# fields enclosed by brackets "[]" replaced with your own identifying
+# information: Portions Copyright [yyyy] [name of copyright owner]
+#
+# CDDL HEADER END
+#
+# Copyright (c) 2014, Oracle and/or its affiliates. All rights reserved.
+#
+<transform file path=usr.*/man/.+ -> default mangler.man.stability uncommitted>
+
+set name=pkg.fmri \
+    value=pkg:/terminal/cssh-$(PLV)@$(IPS_COMPONENT_VERSION),$(BUILD_VERSION)
+set name=pkg.summary \
+    value="Cluster ssh is a utility to administer cluster of servers."
+set name=pkg.description \
+    value="cssh opens an administration console and a separate terminal window to each specified hosts. Any text typed into the administration console is replicated across all terminal windows.  Each terminal window may also be typed into separately."
+set name=com.oracle.info.description \
+    value="Perl CPAN utility to administer cluster of servers."
+set name=com.oracle.info.tpno value=13257
+set name=info.classification \
+    value="org.opensolaris.category.2008:Applications/System Utilities"
+set name=info.source-url value=$(COMPONENT_ARCHIVE_URL)
+set name=info.upstream-url value=$(COMPONENT_PROJECT_URL)
+set name=org.opensolaris.arc-caseid value=PSARC/2013/273
+set name=org.opensolaris.consolidation value=$(CONSOLIDATION)
+#
+file path=usr/perl5/$(PERLVER)/bin/cssh
+file path=usr/perl5/$(PERLVER)/man/man1/cssh.1
+file path=usr/perl5/$(PERLVER)/man/man3/App::ClusterSSH.3
+file path=usr/perl5/$(PERLVER)/man/man3/App::ClusterSSH::Base.3
+file path=usr/perl5/$(PERLVER)/man/man3/App::ClusterSSH::Cluster.3
+file path=usr/perl5/$(PERLVER)/man/man3/App::ClusterSSH::Config.3
+file path=usr/perl5/$(PERLVER)/man/man3/App::ClusterSSH::Helper.3
+file path=usr/perl5/$(PERLVER)/man/man3/App::ClusterSSH::Host.3
+file path=usr/perl5/$(PERLVER)/man/man3/App::ClusterSSH::L10N.3
+file path=usr/perl5/$(PERLVER)/man/man3/App::ClusterSSH::L10N::en.3
+file path=usr/perl5/vendor_perl/$(PERLVER)/App/ClusterSSH.pm
+file path=usr/perl5/vendor_perl/$(PERLVER)/App/ClusterSSH/Base.pm
+file path=usr/perl5/vendor_perl/$(PERLVER)/App/ClusterSSH/Cluster.pm
+file path=usr/perl5/vendor_perl/$(PERLVER)/App/ClusterSSH/Config.pm
+file path=usr/perl5/vendor_perl/$(PERLVER)/App/ClusterSSH/Helper.pm
+file path=usr/perl5/vendor_perl/$(PERLVER)/App/ClusterSSH/Host.pm
+file path=usr/perl5/vendor_perl/$(PERLVER)/App/ClusterSSH/L10N.pm
+file path=usr/perl5/vendor_perl/$(PERLVER)/App/ClusterSSH/L10N/en.pm
+#
+link path=usr/bin/cssh target=../perl5/$(PERLVER)/bin/cssh mediator=perl \
+    mediator-version=$(PERLVER)
+link path=usr/share/man/man1/cssh.1 \
+    target=../../../perl5/$(PERLVER)/man/man1/cssh.1 mediator=perl \
+    mediator-version=$(PERLVER)
+#
+license cssh.license license=Artistic
+#
+depend type=require fmri=__TBD pkg.debug.depend.file=Protocol.pm \
+    pkg.debug.depend.path=usr/perl5/vendor_perl/$(PERLVER)/X11
+depend type=require fmri=__TBD pkg.debug.depend.file=Tk.pm \
+    pkg.debug.depend.path=usr/perl5/vendor_perl/$(PERLVER)/$(PERL_ARCH)
+depend type=require fmri=__TBD pkg.debug.depend.file=perl \
+    pkg.debug.depend.path=usr/perl5/$(PERLVER)/bin
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/components/perl_modules/cssh/cssh.license	Thu Feb 20 12:41:02 2014 -0800
@@ -0,0 +1,131 @@
+Oracle elects to license this component under the Artistic license.  This program contains third-party code from the Comprehensive Perl Archive Network (“CPAN”).  Under the terms of the CPAN license, Oracle is required to provide the following notices.  Note, however, that the Oracle program license that accompanied this product determines your right to use the Oracle program, including the CPAN software, and the terms contained in the following notices do not change those rights. 
+
+Copyright (C) 1999-2010 Duncan Ferguson
+
+The "Artistic License"
+
+				Preamble
+
+The intent of this document is to state the conditions under which a
+Package may be copied, such that the Copyright Holder maintains some
+semblance of artistic control over the development of the package,
+while giving the users of the package the right to use and distribute
+the Package in a more-or-less customary fashion, plus the right to make
+reasonable modifications.
+
+Definitions:
+
+	"Package" refers to the collection of files distributed by the
+	Copyright Holder, and derivatives of that collection of files
+	created through textual modification.
+
+	"Standard Version" refers to such a Package if it has not been
+	modified, or has been modified in accordance with the wishes
+	of the Copyright Holder as specified below.
+
+	"Copyright Holder" is whoever is named in the copyright or
+	copyrights for the package.
+
+	"You" is you, if you're thinking about copying or distributing
+	this Package.
+
+	"Reasonable copying fee" is whatever you can justify on the
+	basis of media cost, duplication charges, time of people involved,
+	and so on.  (You will not be required to justify it to the
+	Copyright Holder, but only to the computing community at large
+	as a market that must bear the fee.)
+
+	"Freely Available" means that no fee is charged for the item
+	itself, though there may be fees involved in handling the item.
+	It also means that recipients of the item may redistribute it
+	under the same conditions they received it.
+
+1. You may make and give away verbatim copies of the source form of the
+Standard Version of this Package without restriction, provided that you
+duplicate all of the original copyright notices and associated disclaimers.
+
+2. You may apply bug fixes, portability fixes and other modifications
+derived from the Public Domain or from the Copyright Holder.  A Package
+modified in such a way shall still be considered the Standard Version.
+
+3. You may otherwise modify your copy of this Package in any way, provided
+that you insert a prominent notice in each changed file stating how and
+when you changed that file, and provided that you do at least ONE of the
+following:
+
+    a) place your modifications in the Public Domain or otherwise make them
+    Freely Available, such as by posting said modifications to Usenet or
+    an equivalent medium, or placing the modifications on a major archive
+    site such as uunet.uu.net, or by allowing the Copyright Holder to include
+    your modifications in the Standard Version of the Package.
+
+    b) use the modified Package only within your corporation or organization.
+
+    c) rename any non-standard executables so the names do not conflict
+    with standard executables, which must also be provided, and provide
+    a separate manual page for each non-standard executable that clearly
+    documents how it differs from the Standard Version.
+
+    d) make other distribution arrangements with the Copyright Holder.
+
+4. You may distribute the programs of this Package in object code or
+executable form, provided that you do at least ONE of the following:
+
+    a) distribute a Standard Version of the executables and library files,
+    together with instructions (in the manual page or equivalent) on where
+    to get the Standard Version.
+
+    b) accompany the distribution with the machine-readable source of
+    the Package with your modifications.
+
+    c) give non-standard executables non-standard names, and clearly
+    document the differences in manual pages (or equivalent), together
+    with instructions on where to get the Standard Version.
+
+    d) make other distribution arrangements with the Copyright Holder.
+
+5. You may charge a reasonable copying fee for any distribution of this
+Package.  You may charge any fee you choose for support of this
+Package.  You may not charge a fee for this Package itself.  However,
+you may distribute this Package in aggregate with other (possibly
+commercial) programs as part of a larger (possibly commercial) software
+distribution provided that you do not advertise this Package as a
+product of your own.  You may embed this Package's interpreter within
+an executable of yours (by linking); this shall be construed as a mere
+form of aggregation, provided that the complete Standard Version of the
+interpreter is so embedded.
+
+6. The scripts and library files supplied as input to or produced as
+output from the programs of this Package do not automatically fall
+under the copyright of this Package, but belong to whoever generated
+them, and may be sold commercially, and may be aggregated with this
+Package.  If such scripts or library files are aggregated with this
+Package via the so-called "undump" or "unexec" methods of producing a
+binary executable image, then distribution of such an image shall
+neither be construed as a distribution of this Package nor shall it
+fall under the restrictions of Paragraphs 3 and 4, provided that you do
+not represent such an executable image as a Standard Version of this
+Package.
+
+7. C subroutines (or comparably compiled subroutines in other
+languages) supplied by you and linked into this Package in order to
+emulate subroutines and variables of the language defined by this
+Package shall not be considered part of this Package, but are the
+equivalent of input as in Paragraph 6, provided these subroutines do
+not change the language in any way that would cause it to fail the
+regression tests for the language.
+
+8. Aggregation of this Package with a commercial distribution is always
+permitted provided that the use of this Package is embedded; that is,
+when no overt attempt is made to make this Package's interfaces visible
+to the end user of the commercial distribution.  Such use shall not be
+construed as a distribution of this Package.
+
+9. The name of the Copyright Holder may not be used to endorse or promote
+products derived from this software without specific prior written permission.
+
+10. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+				The End	    
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/components/perl_modules/cssh/patches/001-no-exception.patch	Thu Feb 20 12:41:02 2014 -0800
@@ -0,0 +1,354 @@
+#
+# Patch out the use of Exception::Class and Try::Tiny since they aren't
+# currently available on Solaris.  Once we add them, this patch can be removed.
+#
+
+diff -u -r App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Base.pm.orig App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Base.pm
+--- App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Base.pm.orig	Tue Apr 16 03:24:31 2013
++++ App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Base.pm	Fri Feb  7 14:19:11 2014
[email protected]@ -5,15 +5,6 @@
+ use Carp;
+ use App::ClusterSSH::L10N;
+ 
+-use Exception::Class (
+-    'App::ClusterSSH::Exception',
+-    'App::ClusterSSH::Exception::Config' => {
+-        fields => 'unknown_config',
+-    },
+-    'App::ClusterSSH::Exception::Cluster',
+-    'App::ClusterSSH::Exception::LoadFile',
+-);
+-
+ # Dont use SVN revision as it can cause problems
+ use version;
+ our $VERSION = version->new('0.02');
[email protected]@ -96,9 +87,7 @@
+     my ( $self, $level ) = @_;
+     if ( !defined $level ) {
+         croak(
+-            App::ClusterSSH::Exception->throw(
+-                error => _translate('Debug level not provided')
+-            )
++            _translate('Debug level not provided')
+         );
+     }
+     if ( $level > 9 ) {
[email protected]@ -138,9 +127,7 @@
+ 
+     if ( !$app_configuration ) {
+         croak(
+-            App::ClusterSSH::Exception->throw(
+-                _translate('config has not yet been set')
+-            )
++            _translate('config has not yet been set')
+         );
+     }
+ 
[email protected]@ -152,17 +139,13 @@
+ 
+     if ($app_configuration) {
+         croak(
+-            App::ClusterSSH::Exception->throw(
+                 _translate('config has already been set')
+-            )
+         );
+     }
+ 
+     if ( !$config ) {
+         croak(
+-            App::ClusterSSH::Exception->throw(
+                 _translate('passed config is empty')
+-            )
+         );
+     }
+ 
[email protected]@ -178,17 +161,13 @@
+ 
+     if ( !$args{filename} ) {
+         croak(
+-            App::ClusterSSH::Exception->throw(
+-                error => '"filename" arg not passed'
+-            )
++                '"filename" arg not passed'
+         );
+     }
+ 
+     if ( !$args{type} || $args{type} !~ m/cluster|config/ ) {
+         croak(
+-            App::ClusterSSH::Exception->throw(
+-                error => '"type" arg invalid'
+-            )
++                '"type" arg invalid'
+         );
+     }
+ 
[email protected]@ -196,12 +175,10 @@
+ 
+     if ( !-e $args{filename} ) {
+         croak(
+-            App::ClusterSSH::Exception::LoadFile->throw(
+-                error => $self->loc(
++                $self->loc(
+                     'Unable to read file [_1]: [_2]' . $/, $args{filename},
+                     $!
+                 ),
+-            ),
+         );
+     }
+ 
[email protected]@ -209,20 +186,16 @@
+         = $args{type} eq 'config'  ? qr/\s*(\S+)\s*=\s*(.*)/
+         : $args{type} eq 'cluster' ? qr/\s*(\S+)\s+(.*)/
+         : croak(
+-        App::ClusterSSH::Exception::LoadFile->throw(
+-            error => 'Unknown arg type: ',
++            'Unknown arg type: ',
+             $args{type}
+-        )
+         );
+ 
+     open( my $fh, '<', $args{filename} )
+         or croak(
+-        App::ClusterSSH::Exception::LoadFile->throw(
+-            error => $self->loc(
++            $self->loc(
+                 "Unable to read file [_1]: [_2]",
+                 $args{filename}, $!
+             )
+-        ),
+         );
+ 
+     my %results;
[email protected]@ -259,9 +232,7 @@
+ 
+     close($fh)
+         or croak(
+-        App::ClusterSSH::Exception::LoadFile->throw(
+-            error => "Could not close $args{filename} after reading: $!"
+-        ),
++            "Could not close $args{filename} after reading: $!"
+         );
+ 
+     return %results;
+diff -u -r App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Cluster.pm.orig App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Cluster.pm
+--- App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Cluster.pm.orig	Tue Apr 16 03:24:31 2013
++++ App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Cluster.pm	Fri Feb  7 14:19:30 2014
[email protected]@ -7,7 +7,6 @@
+ our $VERSION = version->new('0.01');
+ 
+ use Carp;
+-use Try::Tiny;
+ use English qw( -no_match_vars );
+ 
+ use base qw/ App::ClusterSSH::Base /;
[email protected]@ -73,13 +72,11 @@
+ 
+     if ( $return_code != 0 ) {
+         croak(
+-            App::ClusterSSH::Exception::Cluster->throw(
+-                error => $self->loc(
++                $self->loc(
+                     "External command failure.\nCommand: [_1]\nReturn Code: [_2]",
+                     $command,
+                     $return_code,
+                 ),
+-            )
+         );
+     }
+ 
+diff -u -r App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Config.pm App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Config.pm
+--- App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Config.pm.orig	Tue Apr 16 03:24:31 2013
++++ App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Config.pm	Fri Feb  7 14:22:41 2014
[email protected]@ -7,7 +7,6 @@
+ our $VERSION = version->new('0.02');
+ 
+ use Carp;
+-use Try::Tiny;
+ 
+ use FindBin qw($Script);
+ use File::Copy;
[email protected]@ -140,32 +139,25 @@
+ 
+     if (@unknown_config) {
+         croak(
+-            App::ClusterSSH::Exception::Config->throw(
+-                unknown_config => \@unknown_config,
+-                error          => $self->loc(
++                $self->loc(
+                     'Unknown configuration parameters: [_1]' . $/,
+                     join( ',', @unknown_config )
+                 )
+-            )
+         );
+     }
+ 
+     if ( !$self->{comms} ) {
+         croak(
+-            App::ClusterSSH::Exception::Config->throw(
+-                error => $self->loc( 'Invalid variable: comms' . $/ ),
+-            ),
++                $self->loc( 'Invalid variable: comms' . $/ ),
+         );
+     }
+ 
+     if ( !$self->{ $self->{comms} } ) {
+         croak(
+-            App::ClusterSSH::Exception::Config->throw(
+-                error => $self->loc(
++                $self->loc(
+                     'Invalid variable: [_1]' . $/,
+                     $self->{comms}
+                 ),
+-            ),
+         );
+     }
+ 
[email protected]@ -186,12 +178,10 @@
+ 
+     #    if ( !-e $config_file || !-r $config_file ) {
+     #        croak(
+-    #            App::ClusterSSH::Exception::Config->throw(
+-    #                error => $self->loc(
++    #                $self->loc(
+     #                    'File [_1] does not exist or cannot be read' . $/,
+     #                    $config_file
+     #                ),
+-    #            ),
+     #        );
+     #    }
+     #
[email protected]@ -259,10 +249,9 @@
+     }
+ 
+     # write out default config file if necesasry
+-    try {
+-        $self->write_user_config_file();
+-    }
+-    catch {
++    if (
++        $self->write_user_config_file()
++    ) {
+         warn $_, $/;
+     };
+ 
[email protected]@ -288,12 +277,10 @@
+ 
+         if ([email protected]) {
+             croak(
+-                App::ClusterSSH::Exception::Config->throw(
+-                    error => $self->loc(
++                    $self->loc(
+                         'Unable to move [_1] to [_2]: [_3]' . $/,
+                         '$HOME/.csshrc', '$HOME/.csshrc.DISABLED', [email protected]
+                     ),
+-                )
+             );
+         }
+         else {
[email protected]@ -311,12 +298,10 @@
+     if ( !-d "$ENV{HOME}/.clusterssh" ) {
+         if ( !mkdir("$ENV{HOME}/.clusterssh") ) {
+             croak(
+-                App::ClusterSSH::Exception::Config->throw(
+-                    error => $self->loc(
++                    $self->loc(
+                         'Unable to create directory [_1]: [_2]' . $/,
+                         '$HOME/.clusterssh', $!
+                     ),
+-                ),
+             );
+ 
+         }
[email protected]@ -336,13 +321,11 @@
+         }
+         else {
+             croak(
+-                App::ClusterSSH::Exception::Config->throw(
+-                    error => $self->loc(
++                    $self->loc(
+                         'Unable to write [_1]: [_2]' . $/,
+                         '$HOME/.clusterssh/clusters',
+                         $!
+                     ),
+-                ),
+             );
+         }
+     }
[email protected]@ -365,12 +348,10 @@
+     }
+     else {
+         croak(
+-            App::ClusterSSH::Exception::Config->throw(
+-                error => $self->loc(
++                $self->loc(
+                     'Unable to write default [_1]: [_2]' . $/,
+                     '$HOME/.clusterssh/config', $!
+                 ),
+-            ),
+         );
+     }
+ 
[email protected]@ -384,9 +365,7 @@
+ 
+     if ( !$binary ) {
+         croak(
+-            App::ClusterSSH::Exception::Config->throw(
+-                error => $self->loc('argument not provided') . $/,
+-            ),
++                $self->loc('argument not provided') . $/,
+         );
+     }
+ 
[email protected]@ -435,13 +414,11 @@
+     }
+     if ( !$path || !-f $path || !-x $path ) {
+         croak(
+-            App::ClusterSSH::Exception::Config->throw(
+-                error => $self->loc(
++                $self->loc(
+                     '"[_1]" binary not found - please amend $PATH or the cssh config file'
+                         . $/,
+                     $binary
+                 ),
+-            ),
+         );
+     }
+ 
+diff -u -r App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Helper.pm.orig App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Helper.pm
+--- App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Helper.pm.orig	Tue Apr 16 03:24:31 2013
++++ App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Helper.pm	Fri Feb  7 14:13:54 2014
[email protected]@ -7,7 +7,6 @@
+ our $VERSION = version->new('0.02');
+ 
+ use Carp;
+-use Try::Tiny;
+ 
+ use base qw/ App::ClusterSSH::Base /;
+ 
+diff -u -r App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Host.pm.orig App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Host.pm
+--- App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Host.pm.orig	Tue Apr 16 03:24:31 2013
++++ App-ClusterSSH-4.02_01/lib/App/ClusterSSH/Host.pm	Fri Feb  7 14:19:57 2014
[email protected]@ -18,9 +18,7 @@
+ 
+     if ( !$args{hostname} ) {
+         croak(
+-            App::ClusterSSH::Exception->throw(
+-                error => $class->loc('hostname is undefined')
+-            )
++                $class->loc('hostname is undefined')
+         );
+     }
+ 
[email protected]@ -265,11 +263,9 @@
+ 
+     # if we got this far, we didnt parse the host_string properly
+     croak(
+-        App::ClusterSSH::Exception->throw(
+-            error => $self->loc(
++            $self->loc(
+                 'Unable to parse hostname from "[_1]"', $host_string
+             )
+-        )
+     );
+ }
+ 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/components/perl_modules/cssh/patches/002-pod2text.patch	Thu Feb 20 12:41:02 2014 -0800
@@ -0,0 +1,20 @@
+#
+# Change pod2text to refer to the full path so that the help window works.
+# Ideally, this would be in the default search path. There is a bug that is
+# tracking changes to promote more of the perl distribution commands into
+# the default search path.  Once it has integrated, this patch can be removed.
+# See
+#	15544867 SUNBT6810331 pod2man symlink need to be created in /usr/bin
+#
+
+--- App-ClusterSSH-4.02_01/lib/App/ClusterSSH.pm.orig	Mon Feb 10 08:48:59 2014
++++ App-ClusterSSH-4.02_01/lib/App/ClusterSSH.pm	Mon Feb 10 08:49:30 2014
[email protected]@ -1428,7 +1428,7 @@
+         -class      => 'cssh',
+     );
+ 
+-    my $manpage = `pod2text -l -q=\"\" $0 2>/dev/null`;
++    my $manpage = `/usr/perl5/bin/pod2text -l -q=\"\" $0 2>/dev/null`;
+     if ( !$manpage ) {
+         $manpage
+             = "Help is missing.\nSee that command 'pod2text' is installed and in PATH.";
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/components/perl_modules/cssh/resolve.deps	Thu Feb 20 12:41:02 2014 -0800
@@ -0,0 +1,9 @@
+library/perl5/perl-tk
+library/perl5/perl-tk-512
+library/perl-5/perl-tk
+library/perl-5/perl-tk-512
+library/perl-5/perl-x11-protocol
+library/perl-5/perl-x11-protocol-512
+runtime/perl-512
+shell/ksh93
+system/library