perl-Glib r1085 - trunk

[tsch svn gnome org]

Author: tsch
Date: Wed Feb 11 21:56:36 2009
New Revision: 1085
URL: http://svn.gnome.org/viewvc/perl-Glib?rev=1085&view=rev

Log:
GOption.xs (copy_string): Fix C99-ism.  Patch by Kevin Ryde.


Modified:
   trunk/ChangeLog
   trunk/GOption.xs

Modified: trunk/GOption.xs
==============================================================================
--- trunk/GOption.xs	(original)
+++ trunk/GOption.xs	Wed Feb 11 21:56:36 2009
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2005-2008 by the gtk2-perl team (see the file AUTHORS)
+ * Copyright (c) 2005-2009 by the gtk2-perl team (see the file AUTHORS)
  *
  * Licensed under the LGPL, see LICENSE file for more information.
  *
@@ -265,9 +265,10 @@
 static gchar *
 copy_string (gchar *src, GPerlArgInfoTable *table)
 {
+	gchar *result;
 	if (!src)
 		return NULL;
-	gchar *result = g_strdup (src);
+	result = g_strdup (src);
 	table->allocated_strings =
 		g_slist_prepend (table->allocated_strings, result);
 	return result;