use base 'FS::part_export';
use vars qw( %info );
use String::ShellQuote;
+use Net::OpenSSH;
#tie my %options, 'Tie::IxHash';
#;
sub _export_insert {
my($self, $svc_acct) = (shift, shift);
- eval "use Net::OpenSSH;";
- return $@ if $@;
open my $def_in, '<', '/dev/null' or die "unable to open /dev/null";
my $ssh = Net::OpenSSH->new( $self->machine,
#well, we're just going to disable them for now, but there you go
- eval "use Net::OpenSSH;";
- return $@ if $@;
-
open my $def_in, '<', '/dev/null' or die "unable to open /dev/null";
my $ssh = Net::OpenSSH->new( $self->machine,
default_stdin_fh => $def_in );