From c005e942fa1f09c3966e8887dcfb595353fbe8a7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ville=20Skytt=C3=A4?= <ville.skytta@iki.fi>
Date: Tue, 19 Jul 2011 00:06:20 +0300
Subject: Don't use the Shell module.

From its man page: "It shouldn't be used for production programs.".
---
 vdradmind.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/vdradmind.pl b/vdradmind.pl
index ef8f56f..eeb486a 100755
--- a/vdradmind.pl
+++ b/vdradmind.pl
@@ -70,7 +70,6 @@ use Time::Local qw(timelocal);
 use POSIX qw(:sys_wait_h strftime mktime locale_h);
 use MIME::Base64 ();
 use File::Temp ();
-use Shell qw(locale);
 use URI ();
 use URI::Escape qw(uri_escape);
 
@@ -6574,7 +6573,7 @@ sub config {
     my @my_locales;
     if (-f "/usr/bin/locale" && -x _) {
         push(@my_locales, { id => "", name => gettext("System default"), cur => 0 });
-        foreach my $loc (locale("-a")) {
+        foreach my $loc (`locale -a`) {
             chomp $loc;
             push(@my_locales,
                  {  id   => $loc,
-- 
cgit v1.2.3