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 /FS/FS/part_export/router.pm | |
parent | 6464c76c549ba420f98e67aaca1c26327a8a2671 (diff) |
don't depend on Net::Telnet unless necessary
Diffstat (limited to 'FS/FS/part_export/router.pm')
-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 e2cde53..648a437 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(', ', @_); |