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

[Marcus Holland-Moritz]

Change 34137 by [EMAIL PROTECTED] on 2008/07/13 19:04:20

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

Affected files ...

... //depot/perl/pod/perlxs.pod#55 edit

Differences ...

==== //depot/perl/pod/perlxs.pod#55 (text) ====
Index: perl/pod/perlxs.pod
--- perl/pod/perlxs.pod#54~33366~       2008-02-25 00:10:14.000000000 -0800
+++ perl/pod/perlxs.pod 2008-07-13 12:04:20.000000000 -0700
@@ -1094,8 +1094,8 @@
           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{
End of Patch.