svn commit: r636631 - /perl/modperl/trunk/src/modules/perl/modperl_interp.c

[gozer]

Author: gozer
Date: Wed Mar 12 22:25:22 2008
New Revision: 636631

URL: http://svn.apache.org/viewvc?rev=636631&view=rev
Log:
Fix a subtle typo. return; is mostly undefined, try return NULL instead.

Reviewed-By: gozer
Submitted-By: Niko Tyni <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>


Modified:
    perl/modperl/trunk/src/modules/perl/modperl_interp.c

Modified: perl/modperl/trunk/src/modules/perl/modperl_interp.c
URL: 
http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/modperl_interp.c?rev=636631&r1=636630&r2=636631&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_interp.c (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_interp.c Wed Mar 12 22:25:22 
2008
@@ -581,7 +581,7 @@
     modperl_interp_t *interp;
     dTHXa(thx);
     SV **svp = hv_fetch(PL_modglobal, MP_THX_INTERP_KEY, 
strlen(MP_THX_INTERP_KEY), 0);
-    if (!svp) return;
+    if (!svp) return NULL;
     interp = INT2PTR(modperl_interp_t *, SvIV(*svp));
     return interp;
 }