summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2001-10-27 15:39:44 +0000
committerDaouda Lo <daouda@mandriva.com>2001-10-27 15:39:44 +0000
commita70239045e7e83eb7add099032cfd02d0011fea9 (patch)
treecc728fbe9bf9772ad54756de13be884fc4172735 /perl-install
parent75cc8f9156b32fcf8c95b85635fbbfddf11f6d6b (diff)
downloaddrakx-backup-do-not-use-a70239045e7e83eb7add099032cfd02d0011fea9.tar
drakx-backup-do-not-use-a70239045e7e83eb7add099032cfd02d0011fea9.tar.gz
drakx-backup-do-not-use-a70239045e7e83eb7add099032cfd02d0011fea9.tar.bz2
drakx-backup-do-not-use-a70239045e7e83eb7add099032cfd02d0011fea9.tar.xz
drakx-backup-do-not-use-a70239045e7e83eb7add099032cfd02d0011fea9.zip
return value at end of module
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig.pm4
-rw-r--r--perl-install/devices.pm5
-rw-r--r--perl-install/my_gtk.pm7
3 files changed, 8 insertions, 8 deletions
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
#-###############################################################################