diff options
Diffstat (limited to 'gettext-tools/src/x-perl.c')
-rw-r--r-- | gettext-tools/src/x-perl.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c index 5981f6b..f59e3d4 100644 --- a/gettext-tools/src/x-perl.c +++ b/gettext-tools/src/x-perl.c @@ -1,5 +1,5 @@ /* xgettext Perl backend. - Copyright (C) 2002-2005 Free Software Foundation, Inc. + Copyright (C) 2002-2006 Free Software Foundation, Inc. This file was written by Guido Flohr <guido@imperia.net>, 2002-2003. @@ -1505,6 +1505,8 @@ extract_variable (message_list_ty *mlp, token_ty *tp, int first) shapes.shapes[0].argnum1 = 1; shapes.shapes[0].argnum2 = 0; shapes.shapes[0].argnumc = 0; + shapes.shapes[0].argnum1_glib_context = false; + shapes.shapes[0].argnum2_glib_context = false; shapes.shapes[0].argtotal = 0; /* Extract a possible string from the key. Before proceeding |