summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-13 14:27:04 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-13 14:27:04 +0000
commita67362129100ec7a207e2b6a72ca98ad24d950e8 (patch)
treea00b135074698a9f0258a36186749d69622122d0 /perl-install/standalone
parent3ef8cd8fd2f5d9751c3f4e72ac641d51b2d66639 (diff)
downloaddrakx-a67362129100ec7a207e2b6a72ca98ad24d950e8.tar
drakx-a67362129100ec7a207e2b6a72ca98ad24d950e8.tar.gz
drakx-a67362129100ec7a207e2b6a72ca98ad24d950e8.tar.bz2
drakx-a67362129100ec7a207e2b6a72ca98ad24d950e8.tar.xz
drakx-a67362129100ec7a207e2b6a72ca98ad24d950e8.zip
- add empty prototypes to help perl_checker
- has_sub_trees: better use ||
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakfloppy7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index addace84a..57b288abc 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -192,7 +192,7 @@ $window->main;
ugtk2->exit(0);
-sub toggle_expert_button {
+sub toggle_expert_button() {
if ($expert_mode) {
$expert_mod_frame->show();
$expert_button->child->set(N("Normal Mode"));
@@ -275,7 +275,7 @@ sub expand_tree {
#-------------------------------------------------------------
# the function
#-------------------------------------------------------------
-sub build_it {
+sub build_it() {
my $y;
my $co = "/sbin/mkbootdisk --noprompt --verbose --device " . $device_combo->entry->get_text();
if ($expert_mode) {
@@ -325,8 +325,7 @@ sub has_sub_trees {
my ($dir) = @_;
foreach my $file (glob_("$dir/*")) {
- return 1 if -d $file or $file =~ /\.o(\.gz)?$/;
-
+ return 1 if -d $file || $file =~ /\.o(\.gz)?$/;
}
return 0;