Nop.

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index 7e89b7d3e8d629f261121eacf242f94345fc5748..b9d9c08b641ea48d0f9112fe3fe700495cebbfe3 100644 (file)
--- a/gettext-tools/src/x-perl.c
+++ b/gettext-tools/src/x-perl.c
@@ -2022,10 +2022,12 @@ x_perl_prelex (message_list_ty *mlp, token_ty *tp)
                case 'w':
                  tp->type = token_type_symbol;
                  break;
-               default: /* q\000 */
+               case '\0':
                  tp->type = token_type_string;
                  tp->string_type = string_type_q;
                  break;
+               default:
+                 abort ();
                }
              return;
            }