httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From traw...@apache.org
Subject svn commit: r1522747 - in /httpd/httpd/trunk: README.cmake build/cpR_noreplace.pl
Date Fri, 13 Sep 2013 00:01:21 GMT
Author: trawick
Date: Fri Sep 13 00:01:21 2013
New Revision: 1522747

URL: http://svn.apache.org/r1522747
Log:
works with (Strawberry) Perl 5.010 from 2009, so require that version; move to older File::Path
interface

Modified:
    httpd/httpd/trunk/README.cmake
    httpd/httpd/trunk/build/cpR_noreplace.pl

Modified: httpd/httpd/trunk/README.cmake
URL: http://svn.apache.org/viewvc/httpd/httpd/trunk/README.cmake?rev=1522747&r1=1522746&r2=1522747&view=diff
==============================================================================
--- httpd/httpd/trunk/README.cmake (original)
+++ httpd/httpd/trunk/README.cmake Fri Sep 13 00:01:21 2013
@@ -278,8 +278,6 @@ Known Bugs and Limitations
 * no support for static support library builds; unclear if that is a
   requirement; if so: taking PCRE as an example, we'd need to detect that it
   is static and then turn on PCRE_STATIC for the libhttpd build
-* build/cpR_noreplace.pl doesn't declare what version of Perl is required
-  and doesn't work with File::Path that is missing make_path
 
 Generally:
 

Modified: httpd/httpd/trunk/build/cpR_noreplace.pl
URL: http://svn.apache.org/viewvc/httpd/httpd/trunk/build/cpR_noreplace.pl?rev=1522747&r1=1522746&r2=1522747&view=diff
==============================================================================
--- httpd/httpd/trunk/build/cpR_noreplace.pl (original)
+++ httpd/httpd/trunk/build/cpR_noreplace.pl Fri Sep 13 00:01:21 2013
@@ -19,7 +19,9 @@ use strict;
 use File::Basename;
 use File::Copy;
 use File::Find;
-use File::Path qw(make_path);
+use File::Path qw(mkpath);
+
+require 5.010;
 
 my $srcdir;
 my $destdir;
@@ -42,7 +44,7 @@ sub process_file {
             # Create it.
             my $dir = dirname($destfile);
             if (! -e $dir) {
-                make_path($dir) or die "Failed to create directory $dir: $!";
+                mkpath($dir) or die "Failed to create directory $dir: $!";
             }
             copy($File::Find::name, $destfile) or die "Copy $File::Find::name->$destfile
failed: $!";
         }



Mime
View raw message