diff --git "a/outils/extrait-xml-\303\251diteur/extraitXmlEditeur.pl" "b/outils/extrait-xml-\303\251diteur/extraitXmlEditeur.pl" index 28f3588..3bd364e 100755 --- "a/outils/extrait-xml-\303\251diteur/extraitXmlEditeur.pl" +++ "b/outils/extrait-xml-\303\251diteur/extraitXmlEditeur.pl" @@ -16,7 +16,7 @@ " $programme -f fichier [ -e expression_régulière ] [ -l log ] [ -s ] \n" . " $programme -h \n"; -my $version = "1.5.0"; +my $version = "1.5.1"; my $dateModif = "2 Mai 2018"; # Variables nécessaires pour les options @@ -295,7 +295,7 @@ my ($debut) = $pdf[0] =~ /^(.+)\.pdf/io; my @cibles = grep(/^$debut.xml\z/i, @xml); if ( $#cibles == 0 ) { - my ($racine) = $debut =~ m|^(?:.*/)?(.+)|o; + my ($racine) = $cibles[0] =~ m|^(?:.*/)?(.+)\.xml\z|o; system "unzip -jo \"$directory/$file\" \"$cibles[0]\" > /dev/null"; if ( -f "$racine.xml" ) { system "mv \"$racine.xml\" \"$directory/$base.xml\"";