4 my @modified, @added, @removed;
7 if ($line =~ /Modified Files:/) {
12 if ($line =~ /Added Files:/) {
17 if ($line =~ /Removed Files:/) {
22 if ($mode eq "NONE") { next; }
23 if ($line =~ /-------/) { next; }
26 $line =~ s/^CVS:\s+//;
28 # print "processing $line for $mode\n";
29 @files = split(/ /, $line);
30 # print "new files for $mode: ", join(', ', @files), "\n";
32 if ($mode eq "MODIFIED") {
33 push(@modified, @files);
34 } elsif ($mode eq "ADDED") {
36 } elsif ($mode eq "REMOVED") {
37 push(@removed, @files);
39 die "Unknown mode $mode!";
43 print join(' ', @modified);
44 if ($ENV{"SHOW_ALL_FILES"} ne "no") {
45 print ' ', join(' ', @added), ' ', join(' ', @removed);