From f29cd86fbd748de5a623bd75b2f8ac320c5ce2b9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 18 Jan 2008 13:52:00 +0000
Subject: "my $foo if 0" semantic has changed in some cases, using the new
 "state" keyword instead

---
 perl-install/mirror.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/mirror.pm')

diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm
index acd0cd02c..b61f24066 100644
--- a/perl-install/mirror.pm
+++ b/perl-install/mirror.pm
@@ -2,6 +2,7 @@ package mirror; # $Id$
 
 use diagnostics;
 use strict;
+use feature 'state';
 
 use common;
 use log;
@@ -86,7 +87,7 @@ sub list {
     my ($product_id, $type, $o_arch) = @_;
 
     our @mirrors_raw;
-    my $prev_arch if 0;
+    state $prev_arch;
     undef @mirrors_raw if $prev_arch ne $o_arch;
     $prev_arch = $o_arch || arch();
     if (!@mirrors_raw) {
-- 
cgit v1.2.1