Parent Directory
| 
Revision Log
| 
Patch
| revision 270 by dpavlin, Wed Aug 19 17:00:46 2009 UTC | revision 271 by dpavlin, Wed Aug 19 22:48:54 2009 UTC | |
|---|---|---|
| # | Line 79 sub files { | Line 79 sub files { |
| 79 | } | } |
| 80 | } | } |
| 81 | ||
| sub mkpath { | ||
| my $file = shift; | ||
| my @file_parts = split m{/}, $file; | ||
| foreach ( 1 .. $#file_parts - 1 ) { | ||
| my $path = splice @file_parts, 0, $_; | ||
| warn "? $path\n"; | ||
| mkdir $path unless -e $path; | ||
| } | ||
| } | ||
| 82 | 1; | 1; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |