Update upstream source from tag 'upstream/1.19'
Update to upstream version '1.19'
with Debian dir 69ad7a2ec59c148a5710c5cabfd4689dc8a248b3
Florian Schlichting
5 years ago
| 0 | 0 |
Revision history for Perl extension Net::Frame.
|
|
1 |
|
|
2 |
1.19 Thu 17 May 13:59:33 CEST 2018
|
|
3 |
- bugfix: test 13 when DNS getHostIpv6Addr() returns an IPv4 mapped to an IPv6 address
|
|
4 |
=> https://rt.cpan.org/Ticket/Display.html?id=124780
|
| 1 | 5 |
|
| 2 | 6 |
1.18 Thu 15 Mar 16:16:39 CET 2018
|
| 3 | 7 |
- bugfix: https://rt.cpan.org/Ticket/Display.html?id=104689
|
| 31 | 31 |
"provides" : {
|
| 32 | 32 |
"Net::Frame" : {
|
| 33 | 33 |
"file" : "lib/Net/Frame.pm",
|
| 34 | |
"version" : "1.18"
|
|
34 |
"version" : "1.19"
|
| 35 | 35 |
},
|
| 36 | 36 |
"Net::Frame::Layer" : {
|
| 37 | 37 |
"file" : "lib/Net/Frame/Layer.pm"
|
|
| 70 | 70 |
"http://www.perlfoundation.org/artistic_license_1_0"
|
| 71 | 71 |
]
|
| 72 | 72 |
},
|
| 73 | |
"version" : "1.18",
|
|
73 |
"version" : "1.19",
|
| 74 | 74 |
"x_serialization_backend" : "JSON::PP version 2.27400_02"
|
| 75 | 75 |
}
|
| 14 | 14 |
provides:
|
| 15 | 15 |
Net::Frame:
|
| 16 | 16 |
file: lib/Net/Frame.pm
|
| 17 | |
version: '1.18'
|
|
17 |
version: '1.19'
|
| 18 | 18 |
Net::Frame::Layer:
|
| 19 | 19 |
file: lib/Net/Frame/Layer.pm
|
| 20 | 20 |
Net::Frame::Layer::ARP:
|
|
| 43 | 43 |
perl: v5.6.1
|
| 44 | 44 |
resources:
|
| 45 | 45 |
license: http://www.perlfoundation.org/artistic_license_1_0
|
| 46 | |
version: '1.18'
|
|
46 |
version: '1.19'
|
| 47 | 47 |
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
|
| 0 | 0 |
#
|
| 1 | |
# $Id: Frame.pm,v 7609c9d085d3 2018/03/15 15:17:19 gomor $
|
|
1 |
# $Id: Frame.pm,v e0c446e27ca9 2018/05/17 11:59:58 gomor $
|
| 2 | 2 |
#
|
| 3 | 3 |
package Net::Frame;
|
| 4 | 4 |
use strict;
|
| 5 | 5 |
use warnings;
|
| 6 | 6 |
|
| 7 | |
our $VERSION = '1.18';
|
|
7 |
our $VERSION = '1.19';
|
| 8 | 8 |
|
| 9 | 9 |
1;
|
| 10 | 10 |
|
| 4 | 4 |
|
| 5 | 5 |
my $host = 'gomor.org';
|
| 6 | 6 |
my $ip6 = '2001:41d0:2:1a47::2';
|
|
7 |
my $ip6v4mapping = '::ffff:94.23.25.71';
|
| 7 | 8 |
my $ip4 = '94.23.25.71';
|
| 8 | 9 |
|
| 9 | 10 |
#
|
|
| 57 | 58 |
ok(
|
| 58 | 59 |
sub {
|
| 59 | 60 |
my $ip = getHostIpv6Addr($host);
|
| 60 | |
if ($ip eq $ip6) {
|
|
61 |
if ($ip eq $ip6 || $ip eq $ip6v4mapping) {
|
| 61 | 62 |
print "[+] $ip\n";
|
| 62 | 63 |
return 1; # OK
|
| 63 | 64 |
}
|