Actually convert escape chars in --vprod. (#139058, Christophe Saout)

2004-04-22  Matthias Clasen  <mclasen@redhat.com>

	* glib-mkenums.in: Actually convert escape chars in
	--vprod.   (#139058, Christophe Saout)

diff --git a/gobject/ChangeLog b/gobject/ChangeLog
index 8150613..d96eb0a 100644 (file)
--- a/gobject/ChangeLog
+++ b/gobject/ChangeLog
@@ -1,3 +1,8 @@
+2004-04-22  Matthias Clasen  <mclasen@redhat.com>
+
+       * glib-mkenums.in: Actually convert escape chars in 
+       --vprod.   (#139058, Christophe Saout)
+
 2004-04-15  Matthias Clasen  <mclasen@redhat.com>
 
        * gparamspecs.c (param_float_init): Correct the initial 

diff --git a/gobject/glib-mkenums.in b/gobject/glib-mkenums.in
index 969c84a..800e963 100755 (executable)
--- a/gobject/glib-mkenums.in
+++ b/gobject/glib-mkenums.in
@@ -410,7 +410,7 @@ while (<>) {
            $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
            for (@entries) {
                my ($name,$nick) = @{$_};
-               my $tmp_prod = $vprod;
+               my $tmp_prod = $prod;
 
                $tmp_prod =~ s/\@VALUENAME\@/$name/g;
                $tmp_prod =~ s/\@valuenick\@/$nick/g;