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