Parent Directory
| 
Revision Log
| 
Patch
| revision 152 by dpavlin, Sat Oct 27 22:53:33 2007 UTC | revision 153 by dpavlin, Sat Oct 27 22:53:44 2007 UTC | |
|---|---|---|
| # | Line 79 sub all_uids { | Line 79 sub all_uids { |
| 79 | my @uids = grep { /\.yml$/ && -f "$dir/$_" } readdir($d); | my @uids = grep { /\.yml$/ && -f "$dir/$_" } readdir($d); |
| 80 | closedir $d; | closedir $d; |
| 81 | ||
| 82 | return map { s/\.yml$// } @uids; | return map { my $l = $_; $l =~ s/\.yml$//; $l } @uids; |
| 83 | } | } |
| 84 | ||
| 85 | 1; | 1; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |