diff options
author | Jonas Smedegaard <dr@jones.dk> | 2009-08-08 19:41:55 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2009-08-08 19:41:55 +0200 |
commit | e95c6c1e4964dd84e29ba1be6fce75f5e9e1676a (patch) | |
tree | 19f44f8b2cc8d4a605e02b204639f0672268437c /localmarkdown2sms | |
parent | d6deece01161ee8c1a573e927ffc2da6f2448b6f (diff) |
Improve warnings: use print STDERR (not warn()).
Diffstat (limited to 'localmarkdown2sms')
-rwxr-xr-x | localmarkdown2sms | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/localmarkdown2sms b/localmarkdown2sms index 8db1096..2959544 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -57,14 +57,14 @@ foreach my $file (read_dir( $path )) { $key = lc($1); $i = 0; if (lc($content) ne $key) { - warn( "key \"$key\" extracted from fuzzy string \"$content\" in file \"$file\"" ); + print STDERR "key \"$key\" extracted from fuzzy string \"$content\" in file \"$file\"\n"; } if (!defined( $delay{$key})) { $delay{$key}[0] = 0; $warn_nonkey_delay = undef; $warn_nonkey_content = undef; } else { - warn( "skipping non-unique key \"$key\" in file \"$file\"" ); + print STDERR "skipping non-unique key \"$key\" in file \"$file\"\n"; $key = undef; } # delay @@ -77,14 +77,14 @@ foreach my $file (read_dir( $path )) { } $delay{$key}[$i] += $delay; if ($content ne $1) { - warn( "delay (${delay}s) resolved from fuzzy string \"$content\" in file \"$file\"" ); + print STDERR "delay (${delay}s) resolved from fuzzy string \"$content\" in file \"$file\"\n"; } } else { - warn( "ignoring non-key'ed delay line \"$1\" in file \"$file\"" ) unless ($warn_nonkey_delay); + print STDERR "ignoring non-key'ed delay line \"$1\" in file \"$file\"\n" unless ($warn_nonkey_delay); $warn_nonkey_delay = 1; } } else { - warn( "ignoring non-parsable headline \"$line\" in file \"$file\""); + print STDERR "ignoring non-parsable headline \"$line\" in file \"$file\"\n"; } # reply } elsif ( defined( $key )) { @@ -97,7 +97,7 @@ foreach my $file (read_dir( $path )) { $content =~ s/\h*$//g; # strip all trailing spaces $reply{$key}[$i] = $content; } else { - warn( "skipping non-key'ed content \"$line\" in file \"$file\"" ) unless ($warn_nonkey_content); + print STDERR "skipping non-key'ed content \"$line\" in file \"$file\"\n" unless ($warn_nonkey_content); $warn_nonkey_content = 1; } } |