Lines Matching refs:path
224 for my $path (@custom_path) {
225 find({ wanted => \&wanted, no_chdir => 0 }, $path);
227 if ( /^\Q$path\E\/(.*)$/ ) {
230 $custom_hash_ref->{$keep_back} = $path;
300 my $path = $test_hash_ref->{$_};
301 $path .= "/" if "$path" ne "";
302 $path .= "$_";
303 print_message("checking '$path' ...") if $extra_verbose;
304 my $mtime = (stat($path))[9];
357 my $path = $zip_hash_ref->{$_} . "/$_";
358 print_message("zipping '$path' ...") if $extra_verbose;
359 my $member = $zip->addFile($path, $_);
361 print_error("can't add file '$path' to image zip archive: $!", 5);