author | Norm Jacobs <Norm.Jacobs@Oracle.COM> |
Thu, 20 Feb 2014 12:41:02 -0800 | |
branch | s11-update |
changeset 2960 | 7e16a1a5efac |
permissions | -rw-r--r-- |
2960
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
1 |
# |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
2 |
# Change pod2text to refer to the full path so that the help window works. |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
3 |
# Ideally, this would be in the default search path. There is a bug that is |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
4 |
# tracking changes to promote more of the perl distribution commands into |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
5 |
# the default search path. Once it has integrated, this patch can be removed. |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
6 |
# See |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
7 |
# 15544867 SUNBT6810331 pod2man symlink need to be created in /usr/bin |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
8 |
# |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
9 |
|
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
10 |
--- App-ClusterSSH-4.02_01/lib/App/ClusterSSH.pm.orig Mon Feb 10 08:48:59 2014 |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
11 |
+++ App-ClusterSSH-4.02_01/lib/App/ClusterSSH.pm Mon Feb 10 08:49:30 2014 |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
12 |
@@ -1428,7 +1428,7 @@ |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
13 |
-class => 'cssh', |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
14 |
); |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
15 |
|
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
16 |
- my $manpage = `pod2text -l -q=\"\" $0 2>/dev/null`; |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
17 |
+ my $manpage = `/usr/perl5/bin/pod2text -l -q=\"\" $0 2>/dev/null`; |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
18 |
if ( !$manpage ) { |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
19 |
$manpage |
7e16a1a5efac
PSARC/2013/273 cssh version 4.02_01
Norm Jacobs <Norm.Jacobs@Oracle.COM>
parents:
diff
changeset
|
20 |
= "Help is missing.\nSee that command 'pod2text' is installed and in PATH."; |