… | … | ||
---|---|---|---|
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 |