Mercurial > hg > foxridge-archiver
comparison MPIWGStor.pm @ 18:fdf4ceb36db1
fixed problem with dir names in metacheck
new version of metacheck defaults to not change index file
new version of archiver uses new version of metacheck
| author | casties |
|---|---|
| date | Tue, 20 Sep 2005 19:24:57 +0200 |
| parents | 8eee361fdec8 |
| children | 2890dd75d2f6 |
comparison
equal
deleted
inserted
replaced
| 17:6c5c7743acb1 | 18:fdf4ceb36db1 |
|---|---|
| 138 # | 138 # |
| 139 # splits the file path $fn into | 139 # splits the file path $fn into |
| 140 # file name (the last path element) and path | 140 # file name (the last path element) and path |
| 141 # | 141 # |
| 142 sub split_file_path { | 142 sub split_file_path { |
| 143 my ($fn) = @_; | 143 my ($fn, $nodot) = @_; |
| 144 | 144 |
| 145 if ($fn =~ /^(.*)\/([^\/]+)$/) { | 145 if ($fn =~ /^(.*)\/([^\/]+)$/) { |
| 146 return ($2, $1); | 146 return ($2, $1); |
| 147 } | 147 } |
| 148 return ($fn, '.'); # only file name | 148 # only file name |
| 149 if ($nodot) { | |
| 150 return ($fn, ''); | |
| 151 } else { | |
| 152 return ($fn, '.'); | |
| 153 } | |
| 149 } | 154 } |
| 150 | 155 |
| 151 | 156 |
| 152 # | 157 # |
| 153 # $name = sstrip($name) | 158 # $name = sstrip($name) |