--- manpages/check_trans.pl	2003/01/08 23:46:31	151
+++ manpages/check_trans.pl	2003/01/09 09:08:59	166
@@ -187,6 +187,9 @@
 }
 
 foreach my $package (@{$l10ncvs->dirs()}) {
+        my $pkgname = $package;
+        $pkgname =~ s/^$to\///o;
+
         $infos->{$package} = {};
         open (INFOS, "< $package/INFOS") or next;
         my $manpage = '';
@@ -199,8 +202,11 @@
                                 foreach my $field (keys %entry) {
                                         $infos->{$package}->{$manpage}->{$field} = $entry{$field};
                                 }
-                                $eng2trans{"$package/$entry{original}"} = $manpage
-                                        if defined $entry{original};
+                                if (defined $entry{original}) {
+                                        $eng2trans{"$pkgname/$entry{original}"} = $manpage;
+                                } else {
+                                        warn "$package/INFOS: no Original field for document $manpage\n";
+                                }
                         }
                         $manpage = '';
                         %entry = ();
@@ -215,8 +221,11 @@
                 foreach my $field (keys %entry) {
                         $infos->{$package}->{$manpage}->{$field} = $entry{$field};
                 }
-                $eng2trans{"$package/$entry{original}"} = $manpage
-                        if defined $entry{original};
+                if (defined $entry{original}) {
+                        $eng2trans{"$pkgname/$entry{original}"} = $manpage;
+                } else {
+                        warn "$package/INFOS: no Original field for document $manpage\n";
+                }
         }
         close (INFOS);
 }
@@ -225,9 +234,11 @@
 
 #   Check the files in the English directory
 foreach my $path (sort @{$engcvs->files()}) {
+        my $pkgname = $path;
+        $pkgname =~ s/^$from\///o;
         my $tpath = $path;
         $tpath =~ s/^$from/$to/o;
-        defined ($eng2trans{$tpath}) or do {
+        defined ($eng2trans{$pkgname}) or do {
 		(my $docname = $path) =~ s/^.*\///;
 		if (!$globtrans->is_global($docname)) {
                         warn "Missing $tpath\n" unless $opt_q;
@@ -238,7 +249,7 @@
         my $docname = $tpath;
         $docname =~ s{^(.*)/}{};
         my $package = $1;
-        check_file($eng2trans{$tpath}, $package, $path,
+        check_file($eng2trans{$pkgname}, $package, $path,
                 $engcvs->revision($path),
                 str2time($engcvs->date($path)));
 }