From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 31 Mar 2008 22:33:36 +0000 (+0000)
Subject: Fix bug in the code for --opened - it was not working on blead.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33768f1313b327865518f09b2c67d4134cf183fc;hp=6f154b1b7e5f718737f3f5e4410bc717ea159d40;p=p5sagit%2Fp5-mst-13.2.git

Fix bug in the code for --opened - it was not working on blead.

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

diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm
index 4f50e94..4f7aa44 100644
--- a/Porting/Maintainers.pm
+++ b/Porting/Maintainers.pm
@@ -107,9 +107,12 @@ sub process_options {
     my @Files;
    
     if ($Opened) {
-	my @raw = `p4 opened`;
+	@Files = `p4 opened`;
 	die if $?;
-	@Files =  map {s!#.*!!s; s!^//depot/.*?/perl/!!; $_} @raw;
+	foreach (@Files) {
+	    s!#.*!!s;
+	    s!^//depot/(?:perl|.*?/perl)/!!;
+	}
     } else {
 	@Files = @ARGV;
     }