From a70239045e7e83eb7add099032cfd02d0011fea9 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Sat, 27 Oct 2001 15:39:44 +0000
Subject: return value at end of module

---
 perl-install/my_gtk.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl-install/my_gtk.pm')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 01dd81f47..f845d1de6 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -25,8 +25,6 @@ use common;
 my $forgetTime = 1000; #- in milli-seconds
 $border = 5;
 
-1;
-
 #-###############################################################################
 #- OO stuff
 #-###############################################################################
@@ -45,7 +43,7 @@ sub new {
     push @interactive::objects, $o if !$opts{no_interactive_objects};
     $o->{rwindow}->set_position('center_always') if $::isStandalone;
     $o->{rwindow}->set_modal(1) if $my_gtk::grab || $o->{grab};
-
+    
     if ($::isWizard && !$my_gtk::pop_it) {
 	my $rc = "/etc/gtk/wizard.rc";
 	-r $rc or $rc = dirname(__FILE__) . "/wizard.rc";
@@ -178,6 +176,7 @@ sub gtkpack__($@) {
     my $box = shift;
     gtkpack_($box, map {; 0, $_ } @_);
 }
+
 sub gtkpack_($@) {
     my $box = shift;
     for (my $i = 0; $i < @_; $i += 2) {
@@ -769,6 +768,8 @@ sub _ask_file {
     $f->hide_fileop_buttons;
 }
 
+1;
+
 #-###############################################################################
 #- rubbish
 #-###############################################################################
-- 
cgit v1.2.1