diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-06-28 02:35:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-06-28 02:35:23 +0000 |
| commit | a22fb55187eda81a43d3166326838a9f5bb11bf2 (patch) | |
| tree | 1a7e4cd05204089d9f814c7309420065e1c38ac1 /perl-install | |
| parent | aa3fa5f3892f6dbecfe00e276de6afcf75c248ef (diff) | |
| download | drakx-a22fb55187eda81a43d3166326838a9f5bb11bf2.tar drakx-a22fb55187eda81a43d3166326838a9f5bb11bf2.tar.gz drakx-a22fb55187eda81a43d3166326838a9f5bb11bf2.tar.bz2 drakx-a22fb55187eda81a43d3166326838a9f5bb11bf2.tar.xz drakx-a22fb55187eda81a43d3166326838a9f5bb11bf2.zip | |
make perl_checker a little more happy
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 3ae9e50ca..ebb2a3a63 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -497,7 +497,7 @@ sub create_packtable { } sub create_okcancel { - my ($w, $o_ok, $o_cancel, $o_spread, @other) = @_; + my ($w, $o_ok, $o_cancel, $_o_spread, @other) = @_; # @other is a list of extra buttons (usually help (eg: XFdrake/drakx caller) or advanced (eg: interactive caller) button) # extra buttons have the following structure [ label, handler, is_first, pack_right ] local $::isWizard = $::isWizard && !$w->{pop_it}; |