Permalink
Browse files

Fix regexps to restore perl 5.8 and 5.10 compatibility

  • Loading branch information...
1 parent 6e83ab3 commit 67a15adf88d09029a9421617963251122ff13bf7 @dolmen committed Oct 14, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 inc/Build/Author.pm
View
@@ -223,14 +223,16 @@ sub ACTION_parse
$re_ops = $re_ops->as_string;
# Supprime "(?:"...")" redondant avec "("...")" que l'on ajoute après
- $re_ops =~ s/^\(\?:// && $re_ops =~ s/\)$//;
+ $re_ops =~ s/^\(\?^?:// && $re_ops =~ s/\)$//;
# Nettoyage du résultat boggué de Regexp::Assemble :
# remplace "\d" par "[0-9]" (car pas équivalent dans le monde Unicode)
($re_0, $re_full, $re_network, $re_pfx, $re_ops, $re_all) = map {
my $re = ref $_ ? $_->as_string : $_;
$re =~ s/\\d/[0-9]/g;
+ # Compatibilité perl 5.8
+ $re =~ s/\Q(?^:/(?:/g;
$re
} ($re_0, $re_full, $re_network, $re_pfx, $re_ops, $re_all);

0 comments on commit 67a15ad

Please sign in to comment.