From 99a7b1fa68b868686dd03689f36c99bdbebfcb95 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 30 Jul 2003 09:11:06 +0000
Subject: [PATCH] Strip leading ./

p4raw-id: //depot/perl@20336
---
 Porting/Modules | 2 ++
 1 file changed, 2 insertions(+)

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.
-- 
2.7.4