Minor wording rewrite in warning

diff --git a/misc/translator/text-extract2.pl b/misc/translator/text-extract2.pl
index 26fad4c..587ee59 100755 (executable)
--- a/misc/translator/text-extract2.pl
+++ b/misc/translator/text-extract2.pl
@@ -71,14 +71,13 @@ sub extract_attributes ($;$) {
        $i += 1;
        $attr{+lc($key)} = [$key, $val, $val_orig, $i];
        $s = $rest;
-       warn "Warning: Attribute unquoted but needs quoting"
+       warn "Warning: Attribute should be quoted"
                . (defined $lc? " in line $lc": '') . ": $val_orig\n"
                if $val =~ /[^-\.A-Za-z0-9]/s && $val_orig !~ /^['"]/;
     }
     if ($s =~ /\S/s) { # should never happen
        warn "Warning: Strange attribute syntax"
                . (defined $lc? " in line $lc": '') . ": $s\n";
-    } else {
     }
     return \%attr;
 }