Changeset 16635
- Timestamp:
- 2008-08-04T09:41:56+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/gsprintf.pm
r15007 r16635 229 229 my $linekey = "{" . $1 . "}"; 230 230 my $linetext = $2; 231 $linetext =~ s/(\s*)\#\s+Updated\s+(\d?\d-\D\D\D-\d\d\d\d) \s*$//i;231 $linetext =~ s/(\s*)\#\s+Updated\s+(\d?\d-\D\D\D-\d\d\d\d).*$//i; 232 232 233 233 # Map key to text
Note:
See TracChangeset
for help on using the changeset viewer.