summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/printerdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-19 17:33:33 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-19 17:33:33 +0000
commit4dcb37e299c6ee95fe06d638b48f1f6020043882 (patch)
tree045b7623811efe0b53a214f9930b54cb6f82a5b1 /perl-install/standalone/printerdrake
parent6091a1a9d47641d84452a9d2e057030655619e04 (diff)
downloaddrakx-backup-do-not-use-4dcb37e299c6ee95fe06d638b48f1f6020043882.tar
drakx-backup-do-not-use-4dcb37e299c6ee95fe06d638b48f1f6020043882.tar.gz
drakx-backup-do-not-use-4dcb37e299c6ee95fe06d638b48f1f6020043882.tar.bz2
drakx-backup-do-not-use-4dcb37e299c6ee95fe06d638b48f1f6020043882.tar.xz
drakx-backup-do-not-use-4dcb37e299c6ee95fe06d638b48f1f6020043882.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/printerdrake')
-rwxr-xr-xperl-install/standalone/printerdrake5
1 files changed, 2 insertions, 3 deletions
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) });