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/Xconfig.pm | 4 ++--
 perl-install/devices.pm | 5 ++---
 perl-install/my_gtk.pm  | 7 ++++---
 3 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm
index 77b5b9c4b..cb23f05af 100644
--- a/perl-install/Xconfig.pm
+++ b/perl-install/Xconfig.pm
@@ -15,8 +15,6 @@ my %keymap_translate = (
 );
 
 
-1;
-
 sub keymap_translate {
     $keymap_translate{$_[0]} || substr($_[0], 0, 2);
 }
@@ -214,3 +212,5 @@ sub getinfoFromDDC {
     $O->{modelines} ||= join '', @m;
     $o;
 }
+
+1;
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 598d551a4..7228f9410 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -8,9 +8,6 @@ use run_program;
 use log;
 use c;
 
-1;
-
-
 sub size($) {
     local *F;
     sysopen F, $_[0], 0 or log::l("open $_[0]: $!"), return 0;
@@ -156,3 +153,5 @@ sub make($) {
 
     $file;
 }
+
+1;
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