diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-12-19 17:33:33 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-12-19 17:33:33 +0000 |
| commit | 4dcb37e299c6ee95fe06d638b48f1f6020043882 (patch) | |
| tree | 045b7623811efe0b53a214f9930b54cb6f82a5b1 /perl-install | |
| parent | 6091a1a9d47641d84452a9d2e057030655619e04 (diff) | |
| download | drakx-4dcb37e299c6ee95fe06d638b48f1f6020043882.tar drakx-4dcb37e299c6ee95fe06d638b48f1f6020043882.tar.gz drakx-4dcb37e299c6ee95fe06d638b48f1f6020043882.tar.bz2 drakx-4dcb37e299c6ee95fe06d638b48f1f6020043882.tar.xz drakx-4dcb37e299c6ee95fe06d638b48f1f6020043882.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/printerdrake | 5 |
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) }); |