This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't #ifdef out a return statement
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 29 Mar 2005 06:14:18 +0000 (06:14 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 29 Mar 2005 06:14:18 +0000 (06:14 +0000)
p4raw-id: //depot/perl@24089

pad.c

diff --git a/pad.c b/pad.c
index b0cac8d..33b260f 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -437,8 +437,8 @@ Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype)
 #ifdef DEBUG_LEAKING_SCALARS
     sv->sv_debug_optype = optype;
     sv->sv_debug_inpad = 1;
-    return (PADOFFSET)retval;
 #endif
+    return (PADOFFSET)retval;
 }
 
 /*