diff options
Diffstat (limited to 't/lib/test_account.pl')
| -rw-r--r-- | t/lib/test_account.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl index c52067d..b4ce640 100644 --- a/t/lib/test_account.pl +++ b/t/lib/test_account.pl @@ -15,13 +15,13 @@ sub test_account { my($login, $password, $hostport) = <TEST_ACCOUNT>; chomp $login; chomp $password; - chomp $hostport; + #chomp $hostport; - if ( $hostport =~ /^\s*([\w\.]+)(:(\d+))?\s*$/ ) { - my($host, $port) = ($1, $3); - $Net::VoIP_Innovations::HOST = $host; - $Net::VoIP_Innovations::PORT = $port; - } + #if ( $hostport =~ /^\s*([\w\.]+)(:(\d+))?\s*$/ ) { + # my($host, $port) = ($1, $3); + # $Net::VoIP_Innovations::HOST = $host; + # $Net::VoIP_Innovations::PORT = $port; + #} return($login, $password); } |