svn commit: r123257 - /perl/modperl/trunk/src/modules/perl/modperl_perl.c

[stas]

Author: stas
Date: Thu Dec 23 16:14:29 2004
New Revision: 123257

URL: http://svn.apache.org/viewcvs?view=rev&rev=123257
Log:
fix style and simplify

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

Modified: perl/modperl/trunk/src/modules/perl/modperl_perl.c
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_perl.c?view=diff&rev=123257&p1=perl/modperl/trunk/src/modules/perl/modperl_perl.c&r1=123256&p2=perl/modperl/trunk/src/modules/perl/modperl_perl.c&r2=123257
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_perl.c  (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_perl.c  Thu Dec 23 16:14:29 2004
@@ -41,11 +41,8 @@
     if (items < 0 || items > 1) {
         Perl_croak(aTHX_ "Usage: ModPerl::Util::exit(status=0)");
     }
-    if (items < 1)
-        status = 0; /* default: 0 */
-    else {
-        status = (int)SvIV(ST(0));
-    }
+    /* default: 0 */
+    status = items < 1 ? 0 : (int)SvIV(ST(0)); 
     modperl_perl_exit(aTHX_ status);
     
     XSRETURN_EMPTY;