diff options
Diffstat (limited to 'v4l/scripts/hghead.pl')
| -rwxr-xr-x | v4l/scripts/hghead.pl | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/v4l/scripts/hghead.pl b/v4l/scripts/hghead.pl index 7dd40380a..dc989dd61 100755 --- a/v4l/scripts/hghead.pl +++ b/v4l/scripts/hghead.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl use strict; -use Date::Parse; ################################################################# # analyse diffs @@ -46,18 +45,13 @@ while ($line = <IN>) { last; } - if ($line =~ m/^# Date\s*(.*)/) { + if ($line =~ m/^#\s*Date\s*(.*)/) { print "#Date: $1\n"; + next; } if ($line =~ m/^Date:\s*(.*)/) { - my $time = str2time($1); - - if ($time) { - print "#Date: $time 0\n"; - } else { - print "#Date: $1\n"; - } + print "#Date: $1\n"; next; } |