Tidy up error messages
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 26 Feb 2008 10:19:15 +0000 (10:19 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sun, 22 Feb 2009 01:41:32 +0000 (01:41 +0000)
(cherry-picked from commit cb7b5e07a2547873dcf5502e7f9f8f589eae0bf0)
(actually most of this merge was skipped as the code has changed
considerably since this commit)

p4raw-id: //depot/perl@33374

opcode.pl

index 8382c16..6779dc5 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -347,12 +347,12 @@ for my $op (@ops) {
     my $flags = $flags{$op};
     for my $flag (keys %opflags) {
        if ($flags =~ s/$flag//) {
-           die "Flag collision for '$op' ($flags{$op}, $flag)"
+           die "Flag collision for '$op' ($flags{$op}, $flag)\n"
                if $argsum & $opflags{$flag};
            $argsum |= $opflags{$flag};
        }
     }
-    die qq[Opcode '$op' has no class indicator ($flags{$op} => $flags)]
+    die qq[Opcode '$op' has no class indicator ($flags{$op} => $flags)\n]
        unless exists $opclass{$flags};
     $argsum |= $opclass{$flags} << $OCSHIFT;
     my $argshift = $OASHIFT;