import SOAP-WSDL 2.00_33 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_33 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_33.tar.gz
This commit is contained in:
committed by
Michael G. Schwern
parent
51db446428
commit
0cbf981665
+5
-1
@@ -19,6 +19,7 @@ my %opt = (
|
||||
proxy => undef,
|
||||
generator => 'XSD',
|
||||
server => 0,
|
||||
namespace => 0,
|
||||
);
|
||||
|
||||
{ # a block just to scope "no warnings"
|
||||
@@ -34,12 +35,14 @@ my %opt = (
|
||||
ReadMode 1;
|
||||
$user = ReadLine();
|
||||
ReadMode 0;
|
||||
chomp $user;
|
||||
};
|
||||
if (not $password = delete $opt{password}) {
|
||||
print 'Password:';
|
||||
ReadMode 2;
|
||||
$user = ReadLine;
|
||||
$password = ReadLine;
|
||||
ReadMode 0;
|
||||
chomp $password;
|
||||
};
|
||||
return ($user, $password);
|
||||
};
|
||||
@@ -61,6 +64,7 @@ GetOptions(\%opt,
|
||||
password=s
|
||||
generator=s
|
||||
server
|
||||
namespaces|n
|
||||
)
|
||||
);
|
||||
|
||||
|
||||
Reference in New Issue
Block a user