From 8a339a076c19ae748940de161f468ac1c17e4502 Mon Sep 17 00:00:00 2001
From: Bruno Haible <bruno@clisp.org>
Date: Mon, 23 Jun 2003 09:51:43 +0000
Subject: [PATCH] Nop.

---
 gettext-tools/src/x-perl.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index 7e89b7d3e..b9d9c08b6 100644
--- 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;
 	    }
-- 
2.47.3