From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 30 Jul 2003 09:11:06 +0000 (+0000)
Subject: Strip leading ./
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=99a7b1fa68b868686dd03689f36c99bdbebfcb95;p=p5sagit%2Fp5-mst-13.2.git

Strip leading ./

p4raw-id: //depot/perl@20336
---

diff --git a/Porting/Modules b/Porting/Modules
index 9de5385..5f7dff5 100644
--- a/Porting/Modules
+++ b/Porting/Modules
@@ -121,6 +121,8 @@ if ($Maintainer) {
 } elsif (@Files) {
     my %ModuleByFile;
 
+    for (@Files) { s:^\./:: }
+
     @ModuleByFile{@Files} = ();
 
     # First try fast match.