From a22fb55187eda81a43d3166326838a9f5bb11bf2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 28 Jun 2004 02:35:23 +0000 Subject: make perl_checker a little more happy --- perl-install/ugtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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}; -- cgit v1.2.1