[vhffs-dev] [1868] I18n autotools stuff wants relative paths

[subversion@xxxxxxxxxxxxx]

Revision: 1868
Author:   beuss
Date:     2011-06-03 21:38:37 +0200 (Fri, 03 Jun 2011)
Log Message:
-----------
I18n autotools stuff wants relative paths

Modified Paths:
--------------
    trunk/vhffs-intl/update-POTFILES.in.pl

Modified: trunk/vhffs-intl/update-POTFILES.in.pl
===================================================================
--- trunk/vhffs-intl/update-POTFILES.in.pl	2011-06-03 19:38:23 UTC (rev 1867)
+++ trunk/vhffs-intl/update-POTFILES.in.pl	2011-06-03 19:38:37 UTC (rev 1868)
@@ -47,16 +47,20 @@
 
 close STRINGS;
 
-# Then make a list of 
+# Then make a list of files
 
 my @files;
 foreach my $sd(@src_subdirs) {
     File::Find::find(sub {
-        push @files, $File::Find::name."\n" if($File::Find::name =~ /\.p[ml]$/);
+        my $f = $File::Find::name;
+        if($f =~ /\.p[ml]$/) {
+            $f =~ s/$src_root\///;
+            push @files, $f;
+        }
     }, File::Spec->catfile($src_root, $sd));
 }
 
 @files = sort @files;
 open POTFILES, '>', 'POTFILES.in';
-print POTFILES @files;
+print POTFILES join("\n", @files);
 close POTFILES;