X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2Famglue%2Fglib.swg;h=8187643d64cdeb080f0f972dfadf035d92546c40;hb=fd48f3e498442f0cbff5f3606c7c403d0566150e;hp=5198e256a435bf5709d668fc5444e37005a442b8;hpb=96f35b20267e8b1a1c846d476f27fcd330e0b018;p=debian%2Famanda

diff --git a/perl/amglue/glib.swg b/perl/amglue/glib.swg
index 5198e25..8187643 100644
--- a/perl/amglue/glib.swg
+++ b/perl/amglue/glib.swg
@@ -1,21 +1,21 @@
 /*
- * Copyright (c) Zmanda, Inc.  All Rights Reserved.
+ * Copyright (c) 2007,2008,2009 Zmanda, Inc.  All Rights Reserved.
  *
- * This library is free software; you can redistribute it and/or modify it
- * under the terms of the GNU Lesser General Public License version 2.1
- * as published by the Free Software Foundation.
+ * This program is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 as published
+ * by the Free Software Foundation.
  *
- * This library is distributed in the hope that it will be useful, but
+ * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
- * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
- * License for more details.
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * for more details.
  *
- * You should have received a copy of the GNU Lesser General Public License
- * along with this library; if not, write to the Free Software Foundation,
- * Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA.
+ * You should have received a copy of the GNU General Public License along
+ * with this program; if not, write to the Free Software Foundation, Inc.,
+ * 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  *
- * Contact information: Zmanda Inc., 465 S Mathlida Ave, Suite 300
- * Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
+ * Contact information: Zmanda Inc., 465 S. Mathilda Ave., Suite 300
+ * Sunnyvale, CA 94085, USA, or: http://www.zmanda.com
  */
 
 /* Typedefs for a few glib basic types that SWIG doesn't recognize
@@ -27,6 +27,14 @@
 %}
 
 typedef int gboolean;
+%typemap(out) gboolean {
+    if ($1)
+	$result = &PL_sv_yes;
+    else
+	$result = &PL_sv_no;
+    argvi++;
+}
+
 typedef void *gpointer;
 typedef void *gconstpointer;