|
First time I use this forum, I have been a little confused with < , > , & lt; and & gt; in my first message.
It may seem the code is wrong in the first post, so I will copy it again to avoid any confusion:
#!/opt/lampp/bin/perl -w
use Sys::Hostname;
use GRID::Machine;
my %env_hashtable_BIS = ('ORACLE_BASE' => '/u01/app/oracle','ORACLE_HOME' => '/u01/app/oracle/produ
+ct/tools/');
my $m = GRID::Machine->new( 'host' => 'oracle@sad01', 'uses' => [qw(Sys::Hostname)], 'startenv' =>
+\%env_hashtable_BIS);
And the part of the [...]/GRID/Machine.pm where the line 138 can be found:
#line 1 "$host"
package GRID::Machine;
use strict;
use warnings;
$USES
$REMOTE_LIBRARY
my \$rperl = $class->new(
host => '$host',
log => '$log',
err => '$err',
logic_id => '$logic_id',
clientpid => $$,
startdir => '$startdir',
startenv => { qw{ @$startenv } },
pushinc => [ qw{ @$pushinc } ],
unshiftinc => [ qw{ @$unshiftinc } ],
sendstdout => $sendstdout,
cleanup => $cleanup,
prefix => '$prefix', # Where to install modules
debug => $portdebug,
);
\$rperl->main();
__END__
EOREMOTE
} # end of sub RemoteProgram
Sorry for the inconvenience. |
