equal
deleted
inserted
replaced
29 while( my $line = <IN>) |
29 while( my $line = <IN>) |
30 { |
30 { |
31 my @args = split(',',$line); |
31 my @args = split(',',$line); |
32 my $repo = shift @args; |
32 my $repo = shift @args; |
33 my $master = ""; |
33 my $master = ""; |
34 if ( $repo =~ m/^(.*\/)((oss|rnd|sfl)\/.*\/)$/i ) |
34 if ( $repo =~ m/^(.*\/)(.*\/(oss|rnd|sfl)\/.*\/)$/i ) |
35 { |
35 { |
36 $master = $1; |
36 $master = $1; |
37 $repo = $2; |
37 $repo = $2; |
38 } |
38 } |
39 if(-d $master.$repo.".hg") |
39 if(-d $master.$repo.".hg") |