e-smith-devtools/sme8/e-smith-devtools-2.2.0-compiledpython.patch

diff -up e-smith-devtools-2.2.0/genfilelist.compiledpython e-smith-devtools-2.2.0/genfilelist
--- e-smith-devtools-2.2.0/genfilelist.compiledpython   2006-03-16 03:06:17.000000000 -0700
+++ e-smith-devtools-2.2.0/genfilelist  2009-10-26 13:35:24.000000000 -0600
@@ -212,20 +212,28 @@ sub process
     }
     elsif (-f)
     {
-       #  Some files get special permissions and ownership
-       my $dir = (dirname $path) . '/';
+        my (@paths) = ($path);
 
-       # Special permissions per file
-       if (defined $::fileperms{$path})
-       {
-           print "$::fileperms{$path} ";
-       }
-       # Special permissions or per containing directory
-       elsif (defined $::fileperms{$dir})
-       {
-           print "$::fileperms{$dir} ";
-       }
-       print "$path\n";
+        # Add compiled python files
+        push @paths, "${path}c" if $path =~ m{\.py$};
+        push @paths, "${path}o" if $path =~ m{\.py$};
+
+        foreach $path (@paths) {
+            #  Some files get special permissions and ownership
+            my $dir = (dirname $path) . '/';
+
+            # Special permissions per file
+            if (defined $::fileperms{$path})
+            {
+                print "$::fileperms{$path} ";
+            }
+            # Special permissions or per containing directory
+            elsif (defined $::fileperms{$dir})
+            {
+                print "$::fileperms{$dir} ";
+            }
+            print "$path\n";
+        }
     }
     else
     {
1	slords	1.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	slords	1.2	+ push @paths, "${path}c" if $path =~ m{\.py$};
25			+ push @paths, "${path}o" if $path =~ m{\.py$};
26	slords	1.1	+
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			{