Lines Matching refs:file
668 my $file;
671 foreach $file ( @file_list ) {
672 next if ( -d $file); # we only copy files, not directories
673 my ($fname, $dir) = fileparse($file);
675 push(@globbed_files, [$file, $copy]);
765 my $file = shift;
768 my $rc = copy($file, $temp_file);
931 my $file = shift;
934 if ( $file =~ /$pattern/ ) {
935 print "filter out: $file\n" if $is_debug;
946 my $file = shift;
954 chmod($mode, $file);
1122 my $file = shift;
1125 if ( $file =~ s#^\Q$dest\E/##o ) {
1130 $file =~ s#^$ext##o;
1132 push(@zip_list, $file);
1133 } elsif ( $file =~ s#^\Q$common_dest\E/##o ) {
1138 $file =~ s#^$ext##o;
1140 push(@common_zip_list, $file);
1248 foreach $file ( @$this_ref ) {
1249 print "ZIP: adding $file to $zip_file\n" if $is_debug;
1250 print ZIP "$file\n";