diff options
| -rw-r--r-- | challenge-017/andrezgz/perl5/ch-2.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/challenge-017/andrezgz/perl5/ch-2.pl b/challenge-017/andrezgz/perl5/ch-2.pl index ea7368f303..06982bb5bd 100644 --- a/challenge-017/andrezgz/perl5/ch-2.pl +++ b/challenge-017/andrezgz/perl5/ch-2.pl @@ -21,8 +21,10 @@ use warnings; my $uri = shift || 'jdbc:mysql://user:password@localhost:3306/pwc?profile=true#h1'; -my ($scheme, $auth, $path, $query, $frag) = uri_split($uri); -my ($userinfo, $host, $port) = auth_split($auth) if $auth; +my ($scheme, $auth, $path, $query, $frag, $userinfo, $host, $port); + +($scheme, $auth, $path, $query, $frag) = uri_split($uri); +($userinfo, $host, $port) = auth_split($auth) if $auth; show('scheme',$scheme); show('userinfo',$userinfo); |