X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=perl%2Ftypemap;h=97788d303412c4df659facf711ab8cfdd88d51ee;hb=a1c8c3e1be70a821a5e4dfeeee6c78979e587b7a;hp=421e73a263f8b3b02d3426decfb40990e0fc2a7d;hpb=1ee6da96efe8340a7d3904a865d80cd59d9d3fde;p=libguestfs.git diff --git a/perl/typemap b/perl/typemap index 421e73a..97788d3 100644 --- a/perl/typemap +++ b/perl/typemap @@ -9,7 +9,7 @@ O_OBJECT_guestfs_h $var = ($type) SvIV ((SV *) SvRV ($arg)); else { warn (\"${Package}::$func_name(): $var is not a blessed SV reference\"); - XSRETURN_UNDEF; + XSRETURN_UNDEF; } OUTPUT