| … | … | ||
|---|---|---|---|
| 91 | } | 91 | } |
| 92 | 92 | ||
| 93 | my @h = split /:/, $h; | 93 | my @h = split /:/, $h; |
| 94 | my @t = split /:/, $t; | 94 | my @t = split /:/, $t; |
| 95 | 95 | ||
| 96 | warn "a <$h><$t> $t[-1]\n";#d# | ||
| 97 | # check four ipv4 tail | 96 | # check four ipv4 tail |
| 98 | if (@t && $t[-1]=~ /\./) { | 97 | if (@t && $t[-1]=~ /\./) { |
| 99 | return undef if $n > 6; | 98 | return undef if $n > 6; |
| 100 | 99 | ||
| 101 | my $ipn = parse_ipv4 pop @t | 100 | my $ipn = parse_ipv4 pop @t |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |