View | Details | Raw Unified | Return to bug 7143
Collapse All | Expand All

(-)a/about.pl (-2 / +1 lines)
Lines 420-426 if ( open( my $file, "<:encoding(UTF-8)", "$docdir" . "/history.txt" ) ) { Link Here
420
    shift @lines; #remove header row
420
    shift @lines; #remove header row
421
421
422
    foreach (@lines) {
422
    foreach (@lines) {
423
        my ( $date, $desc, $tag ) = split(/\t/);
423
        my ( $epoch, $date, $desc, $tag ) = split(/\t/);
424
        if(!$desc && $date=~ /(?<=\d{4})\s+/) {
424
        if(!$desc && $date=~ /(?<=\d{4})\s+/) {
425
            ($date, $desc)= ($`, $');
425
            ($date, $desc)= ($`, $');
426
        }
426
        }
427
- 

Return to bug 7143