summaryrefslogtreecommitdiff
path: root/FS/FS/part_export/router.pm
diff options
context:
space:
mode:
authorivan <ivan>2004-03-26 04:46:54 +0000
committerivan <ivan>2004-03-26 04:46:54 +0000
commitaf21dde2210a7584837d9bcc6bb8a43599a9b768 (patch)
tree09051d72e9502bef4eaae897935aa44d894d37ea /FS/FS/part_export/router.pm
parent6464c76c549ba420f98e67aaca1c26327a8a2671 (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.pm5
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(', ', @_);