Parent Directory
| 
Revision Log
| 
Patch
| revision 2727 by geissert, Wed Mar 14 03:03:34 2012 UTC | revision 2728 by pabs, Thu Mar 15 02:51:57 2012 UTC | |
|---|---|---|
| # | Line 49 my $cur_project = undef; | Line 49 my $cur_project = undef; |
| 49 | my @files; | my @files; |
| 50 | ||
| 51 | while(<LIST>) { | while(<LIST>) { |
| 52 | next unless(m,^\w/project/.{2}/([^/]+)/(?:([^/]+)|([^/]+)/(?:[^/]+/)*(.+))?$,); | next unless(m,^\w/.{2}/([^/]+)/(?:([^/]+)|([^/]+)/(?:[^/]+/)*(.+))?$,); |
| 53 | my ($project, $file1, $mdir, $file2) = ($1, $2, $3, $4); | my ($project, $file1, $mdir, $file2) = ($1, $2, $3, $4); |
| 54 | my $file = $file1 || $file2; | my $file = $file1 || $file2; |
| 55 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.5 |