Mention file in parser warning.

1 files changed, 6 insertions, 6 deletions

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\"" );
 		}
 	}
     }