Author: pgollucci
Date: Wed Oct  4 20:03:59 2006
New Revision: 453096

URL: http://svn.apache.org/viewvc?view=rev&rev=453096
Log:
Make sure MP_AP_PREFIX is a valid directory on WIN32.

Submitted by: Nikolay Ananiev <[EMAIL PROTECTED]>
Reviewed by: Paul Johnson <[EMAIL PROTECTED]>, pgollucci

MessageID: <[EMAIL PROTECTED]>


Modified:
    perl/modperl/trunk/Changes
    perl/modperl/trunk/lib/ModPerl/BuildOptions.pm

Modified: perl/modperl/trunk/Changes
URL: 
http://svn.apache.org/viewvc/perl/modperl/trunk/Changes?view=diff&rev=453096&r1=453095&r2=453096
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Wed Oct  4 20:03:59 2006
@@ -12,6 +12,10 @@
 
 =item 2.0.3-dev
 
+When using MP_AP_PREFIX on WIN32 make sure that its
+a valid directory.
+[Nikolay Ananiev <[EMAIL PROTECTED]>]
+
 Fix bug concerning 'error-notes' having no value on 
 errordocument redirect.
 [Guy Albertelli II <[EMAIL PROTECTED]>]

Modified: perl/modperl/trunk/lib/ModPerl/BuildOptions.pm
URL: 
http://svn.apache.org/viewvc/perl/modperl/trunk/lib/ModPerl/BuildOptions.pm?view=diff&rev=453096&r1=453095&r2=453096
==============================================================================
--- perl/modperl/trunk/lib/ModPerl/BuildOptions.pm (original)
+++ perl/modperl/trunk/lib/ModPerl/BuildOptions.pm Wed Oct  4 20:03:59 2006
@@ -121,6 +121,11 @@
                     require Win32;
                     $val = Win32::GetShortPathName($val);
                 }
+
+                if (!$val || !-d $val) {
+                    error "MP_AP_PREFIX must point to a valid directory.";
+                    die "\n";
+                }
             }
 
             if ($table->{$key}->{append}){


Reply via email to