You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2006/12/05 08:47:01 UTC

svn commit: r482541 - /perl/modperl/trunk/src/modules/perl/modperl_util.h

Author: pgollucci
Date: Mon Dec  4 23:47:00 2006
New Revision: 482541

URL: http://svn.apache.org/viewvc?view=rev&rev=482541
Log:
one of these days......

get the comparison correct

Modified:
    perl/modperl/trunk/src/modules/perl/modperl_util.h

Modified: perl/modperl/trunk/src/modules/perl/modperl_util.h
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/modperl_util.h?view=diff&rev=482541&r1=482540&r2=482541
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_util.h (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_util.h Mon Dec  4 23:47:00 2006
@@ -157,7 +157,7 @@
 
 #define MP_PERL_VERSION_AT_MOST(r, v, s)                                 \
    (PERL_REVISION == r &&                                                \
-   (PERL_VERSION == v-1 || (PERL_VERSION == v && PERL_SUBVERSION =< s)))
+   (PERL_VERSION < v || (PERL_VERSION == v && PERL_SUBVERSION =< s)))
 
 #define MP_PERL_VERSION(r, v, s)                                         \
   (PERL_REVISION == r && PERL_VERSION == v && PERL_SUBVERSION == s)