| 1042 |
# Get the annotation tuple. |
# Get the annotation tuple. |
| 1043 |
my ($peg, $timestamp, $user, $text) = @{$tuple}; |
my ($peg, $timestamp, $user, $text) = @{$tuple}; |
| 1044 |
# Here we fix up the annotation text. "\r" is removed, |
# Here we fix up the annotation text. "\r" is removed, |
| 1045 |
# and "\t" and "\n" are escaped. Note we use the "s" |
# and "\t" and "\n" are escaped. Note we use the "gs" |
| 1046 |
# modifier so that new-lines inside the text do not |
# modifier so that new-lines inside the text do not |
| 1047 |
# stop the substitution search. |
# stop the substitution search. |
| 1048 |
$text =~ s/\r//gs; |
$text =~ s/\r//gs; |
Parent Directory
| 
Revision Log
| 
Patch