Change 33622 by [EMAIL PROTECTED] on 2008/03/31 22:33:36
Fix bug in the code for --opened - it was not working on blead.
Affected files ...
... //depot/perl/Porting/Maintainers.pm#7 edit
Differences ...
==== //depot/perl/Porting/Maintainers.pm#7 (text) ====
Index: perl/Porting/Maintainers.pm
--- perl/Porting/Maintainers.pm#6~33193~ 2008-02-02 09:01:43.000000000
-0800
+++ perl/Porting/Maintainers.pm 2008-03-31 15:33:36.000000000 -0700
@@ -107,9 +107,12 @@
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;
}
End of Patch.
