From af21dde2210a7584837d9bcc6bb8a43599a9b768 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 26 Mar 2004 04:46:54 +0000 Subject: [PATCH] don't depend on Net::Telnet unless necessary --- FS/FS/part_export/router.pm | 5 +++-- 1 file 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(', ', @_); -- 2.11.0