From 4dcb37e299c6ee95fe06d638b48f1f6020043882 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 19 Dec 2003 17:33:33 +0000
Subject: perl_checker fixes

---
 perl-install/standalone/printerdrake | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone/printerdrake')

diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index a9906b431..e52f128fe 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -51,7 +51,7 @@ my $commandline = $_;
 exit 0 unless printer::printerdrake::first_time_dialog($printer, $in);
 
 # Data structure for GTK2 main window
-my $us = {} ;
+my $us = {};
 $us->{VERSION} = '0.1';
 
 # GTK2 splash screen
@@ -119,7 +119,6 @@ printer::printerdrake::init($printer, $in);
 # GTK2 main window
 
 my $error = 0;
-my $GetValue = -65533;
 my $stringsearch = '';
 
 sub HelpSystem() { exec("drakhelp --id printerdrake") unless fork() };
@@ -232,7 +231,7 @@ my @toolbwg = map {
 #-PO "Configure CUPS" is a button text and the translation has to be AS SHORT AS POSSIBLE
     [ N("Configure CUPS"), N("Configure CUPS printing system"), 'cups_config', \&ConfigCUPS ]
   );
-my ($tbadd, $tbdefault, $tbedit, $tbdel, $tbref, $tbconfig) = @toolbwg;
+my ($_tbadd, $tbdefault, $tbedit, $tbdel, $_tbref, $_tbconfig) = @toolbwg;
 GrayDelEdit();
 
 $fbut->signal_connect('clicked', sub { $stringsearch = $filter->get_text; Refresh($stringsearch) });
-- 
cgit v1.2.1