1 |
diff -up e-smith-devtools-2.2.0/genfilelist.compiledpython e-smith-devtools-2.2.0/genfilelist |
2 |
--- e-smith-devtools-2.2.0/genfilelist.compiledpython 2006-03-16 03:06:17.000000000 -0700 |
3 |
+++ e-smith-devtools-2.2.0/genfilelist 2009-10-26 13:35:24.000000000 -0600 |
4 |
@@ -212,20 +212,28 @@ sub process |
5 |
} |
6 |
elsif (-f) |
7 |
{ |
8 |
- # Some files get special permissions and ownership |
9 |
- my $dir = (dirname $path) . '/'; |
10 |
+ my (@paths) = ($path); |
11 |
|
12 |
- # Special permissions per file |
13 |
- if (defined $::fileperms{$path}) |
14 |
- { |
15 |
- print "$::fileperms{$path} "; |
16 |
- } |
17 |
- # Special permissions or per containing directory |
18 |
- elsif (defined $::fileperms{$dir}) |
19 |
- { |
20 |
- print "$::fileperms{$dir} "; |
21 |
- } |
22 |
- print "$path\n"; |
23 |
+ # Add compiled python files |
24 |
+ push $paths, "${path}c" if $path =~ m{\.py$}; |
25 |
+ push $paths, "${path}o" if $path =~ m{\.py$}; |
26 |
+ |
27 |
+ foreach $path (@paths) { |
28 |
+ # Some files get special permissions and ownership |
29 |
+ my $dir = (dirname $path) . '/'; |
30 |
+ |
31 |
+ # Special permissions per file |
32 |
+ if (defined $::fileperms{$path}) |
33 |
+ { |
34 |
+ print "$::fileperms{$path} "; |
35 |
+ } |
36 |
+ # Special permissions or per containing directory |
37 |
+ elsif (defined $::fileperms{$dir}) |
38 |
+ { |
39 |
+ print "$::fileperms{$dir} "; |
40 |
+ } |
41 |
+ print "$path\n"; |
42 |
+ } |
43 |
} |
44 |
else |
45 |
{ |