e-smith-devtools/sme7/e-smith-devtools-2.0.0-no-orig.patch

diff -up e-smith-devtools-2.0.0/genfilelist.no-orig e-smith-devtools-2.0.0/genfilelist
--- e-smith-devtools-2.0.0/genfilelist.no-orig  2006-03-16 03:06:17.000000000 -0700
+++ e-smith-devtools-2.0.0/genfilelist  2010-08-17 07:49:28.000000000 -0600
@@ -212,7 +212,10 @@ sub process
     }
     elsif (-f)
     {
-       #  Some files get special permissions and ownership
+       # Ignore .orig files created in prep section
+       return if $path =~ m{\.orig$};
+
+       # Some files get special permissions and ownership
        my $dir = (dirname $path) . '/';
 
        # Special permissions per file
diff -up e-smith-devtools-2.0.0/buildtests.no-orig e-smith-devtools-2.0.0/buildtests
--- e-smith-devtools-2.0.0/buildtests.no-orig   2002-02-21 14:21:45.000000000 -0700
+++ e-smith-devtools-2.0.0/buildtests   2010-08-17 08:01:07.000000000 -0600
@@ -54,6 +54,7 @@ sub buildtests
     return unless -T;
     return if /CVS/;
     return if /\.t$/;
+    return if /\.orig$/;
     my $origfile = $_;
     my ($testname, $dir) = fileparse($origfile, ".pm", ".pl");
     my @dirs = split "/", $dir;
1	slords	1.1	diff -up e-smith-devtools-2.0.0/genfilelist.no-orig e-smith-devtools-2.0.0/genfilelist
2			--- e-smith-devtools-2.0.0/genfilelist.no-orig 2006-03-16 03:06:17.000000000 -0700
3			+++ e-smith-devtools-2.0.0/genfilelist 2010-08-17 07:49:28.000000000 -0600
4			@@ -212,7 +212,10 @@ sub process
5			}
6			elsif (-f)
7			{
8			- # Some files get special permissions and ownership
9			+ # Ignore .orig files created in prep section
10			+ return if $path =~ m{\.orig$};
11			+
12			+ # Some files get special permissions and ownership
13			my $dir = (dirname $path) . '/';
14
15			# Special permissions per file
16			diff -up e-smith-devtools-2.0.0/buildtests.no-orig e-smith-devtools-2.0.0/buildtests
17			--- e-smith-devtools-2.0.0/buildtests.no-orig 2002-02-21 14:21:45.000000000 -0700
18			+++ e-smith-devtools-2.0.0/buildtests 2010-08-17 08:01:07.000000000 -0600
19			@@ -54,6 +54,7 @@ sub buildtests
20			return unless -T;
21			return if /CVS/;
22			return if /\.t$/;
23			+ return if /\.orig$/;
24			my $origfile = $_;
25			my ($testname, $dir) = fileparse($origfile, ".pm", ".pl");
26			my @dirs = split "/", $dir;