diff -ur gpt.orig/packaging_tools/perl/scripts/gpt_create_automake_rules gpt/packaging_tools/perl/scripts/gpt_create_automake_rules
--- gpt.orig/packaging_tools/perl/scripts/gpt_create_automake_rules	2006-01-11 17:10:12.000000000 +0100
+++ gpt/packaging_tools/perl/scripts/gpt_create_automake_rules	2011-03-24 19:09:21.334573929 +0100
@@ -110,7 +110,10 @@
     my $file = $_;
     my $dir = $File::Find::dir;
 #    print "find_makefile_am: $dir\n";
-    $dir =~ s!$topdir/+!!;
+    if (substr("$dir", 0, length("$topdir")) eq "$topdir") {
+      $dir = substr("$dir", length("$topdir"));
+    }
+    $dir =~ s!^/!!;
     process_automake_file($file) if ! defined $excluded_dirs{$dir};
 }