-    my %clean_files;
-    grep { $clean_files{"$infobase.$_"} = 1    } @clean_suffixes;
+    # FIXME: I don't understand why, but I can't use "$infobase.$_" => 1.
+    my %clean_files = map { "$infobase" . ".$_" => 1 } @clean_suffixes;
     grep { delete $clean_files{"$infobase.$_"} } @syncodeindexes;

This last one (not patched), I'm not sure how to write it elegantly.

Reply via email to