diff options
| author | ivan <ivan> | 2004-03-26 04:46:54 +0000 | 
|---|---|---|
| committer | ivan <ivan> | 2004-03-26 04:46:54 +0000 | 
| commit | af21dde2210a7584837d9bcc6bb8a43599a9b768 (patch) | |
| tree | 09051d72e9502bef4eaae897935aa44d894d37ea | |
| parent | 6464c76c549ba420f98e67aaca1c26327a8a2671 (diff) | |
don't depend on Net::Telnet unless necessary
| -rw-r--r-- | FS/FS/part_export/router.pm | 5 | 
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/part_export/router.pm b/FS/FS/part_export/router.pm index e2cde53d4..648a4372b 100644 --- a/FS/FS/part_export/router.pm +++ b/FS/FS/part_export/router.pm @@ -55,7 +55,7 @@ tie my %options, 'Tie::IxHash',    'svc'     => 'svc_broadband',    'desc'    => 'Send a command to a router.',    'options' => \%options, -  'notes'   => '( more detailed description from Kristian / fire2wire? )', +  'notes'   => 'Installation of Net::Telnet from CPAN is required for telnet connections.  ( more detailed description from Kristian / fire2wire? )',  );  @saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' ); @@ -164,7 +164,8 @@ sub ssh_cmd { #subroutine, not method  }  sub telnet_cmd { -  use Net::Telnet; +  eval 'use Net::Telnet;'; +  die $@ if $@;    warn join(', ', @_);  | 
