From a67362129100ec7a207e2b6a72ca98ad24d950e8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 13 May 2003 14:27:04 +0000
Subject: - add empty prototypes to help perl_checker - has_sub_trees: better
 use ||

---
 perl-install/standalone/drakfloppy | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'perl-install/standalone/drakfloppy')

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;
-- 
cgit v1.2.1