diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-03-31 22:33:36 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-03-31 22:33:36 +0000 |
| commit | 33768f1313b327865518f09b2c67d4134cf183fc (patch) | |
| tree | a920c9414e8e99152a6d8e474c806bce3b9a9f8d /Porting/Maintainers.pm | |
| parent | 6f154b1b7e5f718737f3f5e4410bc717ea159d40 (diff) | |
| download | perl-33768f1313b327865518f09b2c67d4134cf183fc.tar.gz | |
Fix bug in the code for --opened - it was not working on blead.
p4raw-id: //depot/perl@33622
Diffstat (limited to 'Porting/Maintainers.pm')
| -rw-r--r-- | Porting/Maintainers.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm index 4f50e94044..4f7aa44e94 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; } |