Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

ttlogmerge.pl: improvements

  • Loading branch information...
commit cbaf2559ec378d0e383013807114dae78f313cba 1 parent 9d1bf6f
@pmyteh authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 script/ttlogmerge.pl
View
4 script/ttlogmerge.pl
@@ -46,7 +46,7 @@ sub parse
my @tokens = split(/\s+/, $s);
# XXX FIXME: This may fail where huge numbers of tags are added:
# It appears TT shortens the human-readable date string to stay
- # under 80 characters per line.
+ # under 80 characters per line if possible.
for my $i (1..3) { pop(@tokens) } # Discard date string
# print STDERR "parse: ", $_[0], @tokens;
return @tokens;
@@ -65,7 +65,7 @@ sub parse_timestamp
open(my $f2, "<", shift) or die;
my $outn = shift;
my $fo;
-if $(outn) {
+if ($outn) {
open($fo, ">", $outn) or die;
} else {
open($fo, '>&', \*STDOUT) or die;
Please sign in to comment.
Something went wrong with that request. Please try again.