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

diff --git a/perl/amglue/glib.swg b/perl/amglue/glib.swg
index 8187643..2c1ce07 100644
--- a/perl/amglue/glib.swg
+++ b/perl/amglue/glib.swg
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2007,2008,2009 Zmanda, Inc.  All Rights Reserved.
+ * Copyright (c) 2007, 2008, 2009, 2010 Zmanda, Inc.  All Rights Reserved.
  *
  * 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
@@ -27,6 +27,10 @@
 %}
 
 typedef int gboolean;
+%typemap(in) gboolean {
+    $1 = SvTRUE($input);
+}
+
 %typemap(out) gboolean {
     if ($1)
 	$result = &PL_sv_yes;