From eabd5e38fcb35a696f8b0785c0f121bc958fb9c1 Mon Sep 17 00:00:00 2001
From: andrezgz <andrezgz@gmail.com>
Date: Thu, 18 Jul 2019 19:07:07 -0300
Subject: challenge-017 ch-2 fix

---
 challenge-017/andrezgz/perl5/ch-2.pl | 6 ++++--
 1 file 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);
-- 
cgit