From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sun, 13 Jul 2008 19:04:20 +0000 (+0000)
Subject: Fix for #56874: maybe small error in perlxs.pod example
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e455f685b45addf2cc78d01dda187c70274aaa3;p=p5sagit%2Fp5-mst-13.2.git

Fix for #56874: maybe small error in perlxs.pod example

p4raw-id: //depot/perl@34137
---

diff --git a/pod/perlxs.pod b/pod/perlxs.pod
index f88565b..9e70c69 100644
--- a/pod/perlxs.pod
+++ b/pod/perlxs.pod
@@ -1094,8 +1094,8 @@ return value, should the need arise.
           time_t  timep;
           bool_t x;
         CODE:
-          ST(0) = sv_newmortal();
           if( rpcb_gettime( host, &timep ) ){
+               ST(0) = sv_newmortal();
                sv_setnv( ST(0), (double)timep);
           }
           else{