e-smith-devtools/sme8/e-smith-devtools-2.2.0-no-orig.patch

diff -up e-smith-devtools-2.2.0/genfilelist.no-orig e-smith-devtools-2.2.0/genfilelist
--- e-smith-devtools-2.2.0/genfilelist.no-orig  2010-08-17 07:50:45.000000000 -0600
+++ e-smith-devtools-2.2.0/genfilelist  2010-08-17 07:50:33.000000000 -0600
@@ -212,6 +212,9 @@ sub process
     }
     elsif (-f)
     {
+       # Ignore .orig files created in prep section
+       return if $path =~ m{\.orig$};
+
         my (@paths) = ($path);
 
         # Add compiled python files
@@ -219,7 +222,7 @@ sub process
         push @paths, "${path}o" if $path =~ m{\.py$};
 
         foreach $path (@paths) {
-            #  Some files get special permissions and ownership
+            # Some files get special permissions and ownership
             my $dir = (dirname $path) . '/';
 
             # Special permissions per file
diff -up e-smith-devtools-2.2.0/buildtests.no-orig e-smith-devtools-2.2.0/buildtests
--- e-smith-devtools-2.2.0/buildtests.no-orig   2002-02-21 14:21:45.000000000 -0700
+++ e-smith-devtools-2.2.0/buildtests   2010-08-17 08:03:55.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.2.0/genfilelist.no-orig e-smith-devtools-2.2.0/genfilelist
2			--- e-smith-devtools-2.2.0/genfilelist.no-orig 2010-08-17 07:50:45.000000000 -0600
3			+++ e-smith-devtools-2.2.0/genfilelist 2010-08-17 07:50:33.000000000 -0600
4			@@ -212,6 +212,9 @@ sub process
5			}
6			elsif (-f)
7			{
8			+ # Ignore .orig files created in prep section
9			+ return if $path =~ m{\.orig$};
10			+
11			my (@paths) = ($path);
12
13			# Add compiled python files
14			@@ -219,7 +222,7 @@ sub process
15			push @paths, "${path}o" if $path =~ m{\.py$};
16
17			foreach $path (@paths) {
18			- # Some files get special permissions and ownership
19			+ # Some files get special permissions and ownership
20			my $dir = (dirname $path) . '/';
21
22			# Special permissions per file
23			diff -up e-smith-devtools-2.2.0/buildtests.no-orig e-smith-devtools-2.2.0/buildtests
24			--- e-smith-devtools-2.2.0/buildtests.no-orig 2002-02-21 14:21:45.000000000 -0700
25			+++ e-smith-devtools-2.2.0/buildtests 2010-08-17 08:03:55.000000000 -0600
26			@@ -54,6 +54,7 @@ sub buildtests
27			return unless -T;
28			return if /CVS/;
29			return if /\.t$/;
30			+ return if /\.orig$/;
31			my $origfile = $_;
32			my ($testname, $dir) = fileparse($origfile, ".pm", ".pl");
33			my @dirs = split "/", $dir;