mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-08 03:45:41 -04:00
wrong return value
This commit is contained in:
parent
f1e646dd48
commit
6e6f1b0c31
1 changed files with 2 additions and 0 deletions
|
@ -347,6 +347,8 @@ sub _fact_substitute
|
||||||
$realsubst =~ s/$(\d+)/$caps[$1]/eg;
|
$realsubst =~ s/$(\d+)/$caps[$1]/eg;
|
||||||
|
|
||||||
$pred =~ s/$match/$realsubst/;
|
$pred =~ s/$match/$realsubst/;
|
||||||
|
|
||||||
|
return $pred;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
Loading…
Add table
Reference in a new issue