Strip leading ./

p4raw-id: //depot/perl@20336

diff --git a/Porting/Modules b/Porting/Modules
index 9de5385..5f7dff5 100644 (file)
--- 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.