From b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 20 Mar 2012 19:52:33 +0000
Subject: perl_checker cleanups

---
 lib/network/vpn/openvpn.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/network/vpn')

diff --git a/lib/network/vpn/openvpn.pm b/lib/network/vpn/openvpn.pm
index 68e1b3f..05f68f3 100644
--- a/lib/network/vpn/openvpn.pm
+++ b/lib/network/vpn/openvpn.pm
@@ -294,7 +294,7 @@ sub cache_pkcs11_tokens {
             }
         }
     }
-    foreach $slot_id (keys %{$pkcs11_tokens->{slots}}) {
+    foreach my $slot_id (keys %{$pkcs11_tokens->{slots}}) {
         my ($type, $label);
         my @stdout; #- do rooted_get_stdout manually because pkcs11-tool may exit with non-zero code with proprietary modules
         run_program::rooted($::prefix, '/usr/bin/pkcs11-tool', '>', \@stdout, '--module', $openvpn_default_pkcs11_provider, '-O', '--slot', $slot_id);
-- 
cgit v1.2.1