diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-07-19 12:32:34 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-07-19 12:32:34 +0100 |
| commit | 0a13f4d2e9bfd090b38d831909ffcccf5c7fd415 (patch) | |
| tree | ad3e6ef29949a04182ee39df60f0466aef20acb6 | |
| parent | d214b0eaec25513939c727c7233a34a83599873b (diff) | |
| parent | eabd5e38fcb35a696f8b0785c0f121bc958fb9c1 (diff) | |
| download | perlweeklychallenge-club-0a13f4d2e9bfd090b38d831909ffcccf5c7fd415.tar.gz perlweeklychallenge-club-0a13f4d2e9bfd090b38d831909ffcccf5c7fd415.tar.bz2 perlweeklychallenge-club-0a13f4d2e9bfd090b38d831909ffcccf5c7fd415.zip | |
Merge pull request #391 from andrezgz/challenge-017-fix
challenge-017 ch-2 fix
| -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); |