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	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;