Code

newer perlapi docu suggests to use SV * instead of void for managed returns
authoroetiker <oetiker@a5681a0c-68f1-0310-ab6d-d61299d08faa>
Tue, 29 Jul 2008 14:42:08 +0000 (14:42 +0000)
committeroetiker <oetiker@a5681a0c-68f1-0310-ab6d-d61299d08faa>
Tue, 29 Jul 2008 14:42:08 +0000 (14:42 +0000)
git-svn-id: svn://svn.oetiker.ch/rrdtool/trunk/program@1456 a5681a0c-68f1-0310-ab6d-d61299d08faa

bindings/perl-shared/RRDs.xs

index b2a70d951b8b2174abdb2d50a9f4932a9955a199..bf9a6123ec6f6e23ab9e75c68a1dad80e9f13e4e 100644 (file)
@@ -203,7 +203,7 @@ rrd_tune(...)
                RETVAL
 
 
-void
+SV *
 rrd_graph(...)
        PROTOTYPE: @    
        PREINIT:
@@ -249,7 +249,7 @@ rrd_graph(...)
                PUSHs(sv_2mortal(newSViv(xsize)));
                PUSHs(sv_2mortal(newSViv(ysize)));
 
-void
+SV *
 rrd_fetch(...)
        PROTOTYPE: @    
        PREINIT:
@@ -302,7 +302,7 @@ rrd_fetch(...)
                PUSHs(sv_2mortal(newRV_noinc((SV*)names)));
                PUSHs(sv_2mortal(newRV_noinc((SV*)retar)));
 
-void
+SV *
 rrd_times(start, end)
          char *start
          char *end