--- /macports/var/macports/sources/rsync.macports.org/release/ports/lang/perl5.8/Portfile	2009-08-07 13:43:02.000000000 +0200
+++ /Volumes/medium/jonthn/pristinetree/var/macports/sources/rsync.macports.org/release/ports/lang/perl5.8/Portfile	2009-09-02 18:09:31.000000000 +0200
@@ -29,6 +29,11 @@
 
 patchfiles  patch-perl.c.diff patch-Configure.diff
 
+pre-patch {
+    system "chmod u+w ${worksrcpath}/Configure"
+    system "chmod u+w ${worksrcpath}/hints/darwin.sh"
+}
+
 post-patch {
     reinplace "s|/opt/local|${prefix}|g" ${worksrcpath}/Configure
     # Ensure that the ld value set in configure.args is used