X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=blobdiff_plain;f=Debbugs%2FCommon.pm;h=6deaf4a73a400f8602fb1f601bd0371106636eb2;hp=732ac2e5bf2f6c02fcaa4b718cb2a7780e3bfc2b;hb=8b3105ce0dc4865f4e42ae347b02d5c4f80528e4;hpb=c8602964268961479e088ab9e079284f4ddfd153

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 732ac2e..6deaf4a 100644
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -435,8 +435,8 @@ sub __add_to_hash {
     binmode($fh,':encoding(UTF-8)');
     while (<$fh>) {
 	chomp;
-	next unless m/^(\S+)\s+(\S.*\S)\s*$/;
-	my ($key,$value)=($1,$2);
+        next unless m/^(\S+)\s+(\S.*\S)\s*$/;
+        my ($key,$value)=($1,$2);
 	$key = lc $key;
 	$forward->{$key}= $value;
 	if (defined $reverse) {
@@ -937,7 +937,7 @@ sub cleanup_eval_fail {
     # ditch the "at foo/bar/baz.pm line 5"
     $error =~ s/\sat\s\S+\sline\s\d+//;
     # ditch croak messages
-    $error =~ s/^\t+.+\n?//g;
+    $error =~ s/^\t+.+\n?//mg;
     # ditch trailing multiple periods in case there was a cascade of
     # die messages.
     $error =~ s/\.+$/\./;