And workaround for problem with Pod::Coverage in older perls.

zonemaster · Apr 28, 2015 · d5e1ebd · d5e1ebd
1 parent 8bd475c
commit d5e1ebd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/Zonemaster/Nameserver.pm b/lib/Zonemaster/Nameserver.pm
@@ -19,7 +19,7 @@ use MIME::Base64;
 use Module::Find qw[useall];
 use Carp;
 use List::Util qw[max min sum];
-use POSIX qw[setlocale LC_ALL];
+use POSIX ();
 
 use overload
   '""'  => \&string,
@@ -320,7 +320,7 @@ sub compare {
 sub save {
     my ( $class, $filename ) = @_;
 
-    my $old = setlocale(LC_ALL,'C');
+    my $old = POSIX::setlocale(POSIX::LC_ALL,'C');
     my $json = JSON::XS->new->allow_blessed->convert_blessed;
     open my $fh, '>', $filename or die "Cache save failed: $!";
     foreach my $name ( keys %object_cache ) {
@@ -333,7 +333,7 @@ sub save {
 
     Zonemaster->logger->add( SAVED_NS_CACHE => { file => $filename } );
 
-    setlocale(LC_ALL, $old);
+    POSIX::setlocale(POSIX::LC_ALL, $old);
     return;
 }