Lines Matching refs:newfile
342 my %newfile = ();
343 %newfile = %{$onefile};
344 $newfile{'Name'} = $zipname;
347 $newfile{'destination'} = $destination . $zipname;
348 $newfile{'sourcepath'} = $unzipdir . $zipname;
349 $newfile{'zipfilename'} = $onefile->{'Name'};
350 $newfile{'zipfilesource'} = $onefile->{'sourcepath'};
351 $newfile{'zipfiledestination'} = $onefile->{'destination'};
355 my $value = sprintf("%o", (stat($newfile{'sourcepath'}))[2]);
356 $newfile{'UnixRights'} = substr($value, 3);
359 $newfile{'sourcepath'},
360 $newfile{'UnixRights'});
366 my $compare_path = $newfile{'sourcepath'};
370 $newfile{'UnixRights'} = "775";
373 $newfile{'sourcepath'},
374 $newfile{'UnixRights'});
403 $newfile{'Styles'} =~ s/\bPATCH\b//; # removing the flag PATCH
404 $newfile{'Styles'} =~ s/\,\s*\,/\,/;
405 $newfile{'Styles'} =~ s/\(\s*\,/\(/;
406 $newfile{'Styles'} =~ s/\,\s*\)/\)/;
422 $newfile{'Name'} = $newzipname;
423 $newfile{'destination'} = $destination . $newzipname;
424 $newfile{'sourcepath'} = $unzipdir . $newzipname;
440 if ( ! $repeat_unzip ) { push(@newallfilesarray, \%newfile); }