This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix bug in the code for --opened - it was not working on blead.
authorNicholas Clark <nick@ccl4.org>
Mon, 31 Mar 2008 22:33:36 +0000 (22:33 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 31 Mar 2008 22:33:36 +0000 (22:33 +0000)
p4raw-id: //depot/perl@33622

Porting/Maintainers.pm

index 4f50e94..4f7aa44 100644 (file)
@@ -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;
     }