challenge-017 ch-2 fix

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);