From 82b8f4c27ec8e4ee8ae8f4b0ead97177d05f4004 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 14 Jul 2003 19:17:54 +0000
Subject: support new 2.5.x kernels' kbuild

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

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 4a6da3fcd..3a7333c06 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -256,7 +256,7 @@ sub expand_tree {
         
         foreach my $dir_entry (all($dir)) {
             my $entry_path = $dir . "/" . $dir_entry;
-            if (-d $entry_path || $dir_entry =~ /\.o(\.gz)?$/) {
+            if (-d $entry_path || $dir_entry =~ /\.(k|)o(\.gz)?$/) {
                 $entry_path =~ s|//|/|g;
                 my $iter = $tree_model->append_set($parent_iter, [ 0 => $dir_entry, 1 => $entry_path, 2 => has_sub_trees($entry_path) ]);
                 #- hackery for partial displaying of trees, used in rpmdrake:
@@ -325,7 +325,7 @@ sub has_sub_trees {
     my ($dir) = @_;
     
     foreach my $file (glob_("$dir/*")) {
-        return 1 if -d $file || $file =~ /\.o(\.gz)?$/;
+        return 1 if -d $file || $file =~ /\.(k|)o(\.gz)?$/;
     }
     
     return 0;
-- 
cgit v1.2.1