diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-11-13 13:05:02 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-11-13 13:05:02 -0800 |
commit | 655d0f5576a9a5e217c3ea5930a96b47831884f4 (patch) | |
tree | 3d294cd5ef15da42bd61f18045d08e158f4bb8cc | |
parent | 410d81606237abe4ab1c916239bd2c5b884b5032 (diff) |
no need for runtime dep on Net::OpenSSH
-rw-r--r-- | FS/FS/part_export/cardfortress.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/FS/FS/part_export/cardfortress.pm b/FS/FS/part_export/cardfortress.pm index 154f979..8c94135 100644 --- a/FS/FS/part_export/cardfortress.pm +++ b/FS/FS/part_export/cardfortress.pm @@ -4,6 +4,7 @@ use strict; use base 'FS::part_export'; use vars qw( %info ); use String::ShellQuote; +use Net::OpenSSH; #tie my %options, 'Tie::IxHash'; #; @@ -21,8 +22,6 @@ sub rebless { shift; } 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, @@ -61,9 +60,6 @@ sub _export_delete { #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 ); |