diff --git a/extract-module-info-langs.pl b/extract-module-info-langs.pl
index f1d91ed29..7b9bb546a 100755
--- a/extract-module-info-langs.pl
+++ b/extract-module-info-langs.pl
@@ -18,7 +18,10 @@ foreach my $f (@files) {
 	my %extract;
 	foreach my $k (@keys) {
 		if ($k =~ /^(desc|longdesc)_(\S+)/) {
-			$extract{$2} ||= { };
+			if (!$extract{$2}) {
+				$extract{$2} ||= { };
+				&read_file($f.".".$2, $extract{$2});
+				}
 			$extract{$2}->{$k} = $minfo{$k};
 			delete($minfo{$k});
 			}