diff options
| author | Daouda Lo <daouda@mandriva.com> | 2001-10-27 15:39:44 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2001-10-27 15:39:44 +0000 |
| commit | a70239045e7e83eb7add099032cfd02d0011fea9 (patch) | |
| tree | cc728fbe9bf9772ad54756de13be884fc4172735 /perl-install | |
| parent | 75cc8f9156b32fcf8c95b85635fbbfddf11f6d6b (diff) | |
| download | drakx-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.pm | 4 | ||||
| -rw-r--r-- | perl-install/devices.pm | 5 | ||||
| -rw-r--r-- | perl-install/my_gtk.pm | 7 |
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 #-############################################################################### |