From 69617c268cef38da90a2a40dd8ec3c2b385a09e9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 17 Sep 2004 08:11:29 +0000
Subject: perl_checker cleanup

---
 perl-install/standalone/drakups | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index e5d35da63..747516d62 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -343,7 +343,7 @@ foreach my $i (@pages) {
     my (%buttons, $list);
     $indexes{$i->{name}} = 0;
     my $idx = \$indexes{$i->{name}};
-    my $getindex = sub { ${$idx}++ };
+    my $getindex = sub { $$idx++ };
     $nb->append_page(gtkpack_(Gtk2::VBox->new,
                               1, create_scrolled_window($list = Gtk2::TreeView->new_with_model($model),
                                                         [ 'automatic', 'automatic' ]),
-- 
cgit v1.2.1