Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 16:45:40 -04:00
Code Issues Releases Wiki Activity

removing some of the debug code

Browse source
This commit is contained in:
Ryan Voots 2010-03-12 16:40:27 -05:00
parent 558fe19599
commit b16b9fc5ef
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
plugins/factoids.pm
View file

@ -348,7 +348,7 @@ sub _fact_substitute
pos $pred = $matchstart+length($realsubst)-1; #set the new position, might have an off by one?
}
return "G:$regex:$flags:$match:$subst:".$pred;
return $pred;
}
else
{
@ -363,7 +363,7 @@ sub _fact_substitute
$pred =~ s/$regex/$realsubst/;
}
return "O:$regex:$flags:$match:$subst:".$pred;
return $pred;
}
}
@ -386,7 +386,7 @@ sub get_fact_substitute {
#moving this to its own function for cleanliness
$result = $self->_fact_substitute($pred, $match, $subst, $flags);
return "Result was, [$result]";
return "Result was, [$result]";
}
else
{