Bon maintenant je n'ai plus de flood sur stderr ce qui est déjà pas mal
et j'ai l'intuition que ça fait à peu près ce que voulait l'auteur
précédent. Voici le diff :
ne me reste plus qu'à «tester en production» puis contacter le(s)
auteur(s) pour leur proposer le patch, à moins que l'un d'entre vous
voient une couille dans le potage
Je pourrait virer :
2158c2158,2161
< my ($id) = ($img =~ m@/\d+/(\d+)_([\da-f]+)_@si);
---
> my $id;
> unless (($id) = ($img =~ m@/\d+/(\d+)_([\da-f]+)_@si)){
> print STDERR "$img doesn't match regexp\n";
> }
qui m'a servi à débugger.
--
Le verbe « souffrir » n'a de sens qu'à l'indicatif présent
et à la première personne.
-+- Gilbert Cesbron (1913-1979), de petites choses. -+-