From ed9a3a4bf12c887db35e9856dbd124e4a4bf3255 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Sat, 8 Aug 2009 18:21:54 +0200 Subject: Mention file in parser warning. --- localmarkdown2sms | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'localmarkdown2sms') diff --git a/localmarkdown2sms b/localmarkdown2sms index 6466eb9..6a4a9cf 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -55,12 +55,12 @@ foreach my $file (read_dir( $path )) { $key = lc($1); $i = 0; if (lc($content) ne $key) { - warn( "key \"$key\" extracted from fuzzy content: \"$content\"" ); + warn( "key \"$key\" extracted from fuzzy string \"$content\" in file \"$file\"" ); } if (!defined( $delay{$key})) { $delay{$key}[0] = 0; } else { - warn( "skipping non-unique key: \"$key\"" ); + warn( "skipping non-unique key \"$key\" in file \"$file\"" ); $key = undef; } # delay @@ -73,13 +73,13 @@ foreach my $file (read_dir( $path )) { } $delay{$key}[$i] += $delay; if ($content ne $1) { - warn( "delay (${delay}s) resolved from fuzzy content: \"$content\"" ); + warn( "delay (${delay}s) resolved from fuzzy string \"$content\" in file \"$file\"" ); } } else { - warn( "skipping non-key'ed delay line: \"$1\"" ); + warn( "skipping non-key'ed delay line \"$1\" in file \"$file\"" ); } } else { - warn( "skipping non-parsable headline: \"$line\""); + warn( "skipping non-parsable headline \"$line\" in file \"$file\""); } # reply } else { @@ -93,7 +93,7 @@ foreach my $file (read_dir( $path )) { if ( defined( $key )) { $reply{$key}[$i] = $content; } else { - warn( "skipping non-key'ed content: \"$1\"" ); + warn( "skipping non-key'ed content \"$1\" in file \"$file\"" ); } } } -- cgit v1.2.3