#
# old_revision [ce1a58e9958b3e6417f6b68c8057d1124f742177]
#
# patch "pf/lib/pf/config.pm"
#  from [5ee94b86993c9c620beecaedaf2dabc1c3b5c20d]
#    to [1e9bbd2511845a66277a8fa5c1fb9e25d26df56c]
#
============================================================
--- pf/lib/pf/config.pm	5ee94b86993c9c620beecaedaf2dabc1c3b5c20d
+++ pf/lib/pf/config.pm	1e9bbd2511845a66277a8fa5c1fb9e25d26df56c
@@ -25,7 +25,7 @@ use Log::Log4perl;
 use File::Basename qw(basename);
 use File::Spec;
 use Log::Log4perl;
-use Net::Interface qw(inet_ntoa);
+use Net::Interface qw(inet_ntoa :afs);
 use Net::Netmask;
 use POSIX;
 use Readonly;
@@ -640,6 +640,7 @@ Undef if nothing is found.
 Undef if nothing is found.
 
 =cut
+# TODO IPv6 support
 sub _fetch_virtual_ip {
     my ($interface) = @_;
 
@@ -647,8 +648,8 @@ sub _fetch_virtual_ip {
     return if (!defined($if));
 
     # these array are ordered the same way, that's why we can assume the following
-    my @masks = $if->netmask();
-    my @addresses = $if->address();
+    my @masks = $if->netmask(AF_INET);
+    my @addresses = $if->address(AF_INET);
 
     for my $i (0 .. $#masks) {
         return inet_ntoa($addresses[$i]) if (inet_ntoa($masks[$i]) eq '255.255.255.255');