From 759a5637b788c6d04cbdffb5fe02c2ba58e842db Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 20 Mar 2006 12:52:15 +0000
Subject: Add a --norecursive option to genhdlist (Michael Scherer)

---
 genhdlist | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/genhdlist b/genhdlist
index 6fd8ef2..8076492 100644
--- a/genhdlist
+++ b/genhdlist
@@ -25,6 +25,7 @@ GetOptions(
     nobadrpm => \$nobadrpm,
     noclean => \my $noclean,
     md5sum => \$md5sum,
+    norecursive => \my $norecursive,
     s => \$nooutput,
     'subdir=s' => \$subdir,
     'suffix=s' => \$suffix,
@@ -69,6 +70,7 @@ foreach my $dir (@dir) {
     File::Find::find(
 	{
 	    wanted => sub {
+		next if $norecursive && $File::Find::dir ne $dir;
 		if (/^.*\.rpm$/ && -f) {
 		    push(@rpms, $File::Find::name);
 		}
@@ -156,6 +158,10 @@ Do not abort on bad rpms.
 
 Keep cache files.
 
+=item --norecursive
+
+Do not recurse in subdirectories.
+
 =item -s
 
 Silent mode.
@@ -188,7 +194,7 @@ gendistrib(1), parsehdlist(1)
 
 Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005 MandrakeSoft SA
 
-Copyright (C) 2005 Mandriva SA
+Copyright (C) 2005, 2006 Mandriva SA
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
-- 
cgit v1.2.1