diff options
Diffstat (limited to 'postprocess/packconfig/packconfig.pl')
| -rwxr-xr-x | postprocess/packconfig/packconfig.pl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/postprocess/packconfig/packconfig.pl b/postprocess/packconfig/packconfig.pl index 5dcb48fa8c0a..835c20b257c5 100755 --- a/postprocess/packconfig/packconfig.pl +++ b/postprocess/packconfig/packconfig.pl @@ -4,7 +4,7 @@ eval 'exec perl -wS $0 ${1+"$@"}' #************************************************************************* # # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -# +# # Copyright 2000, 2010 Oracle and/or its affiliates. # # OpenOffice.org - a multi-platform office productivity suite @@ -83,14 +83,14 @@ sub parse_options my $opt_help; my $p = Getopt::Long::Parser->new(); my $success =$p->getoptions( - '-h' => \$opt_help, + '-h' => \$opt_help, '-o=s' => \$out_file, '-i=s' => \$files_path, '-v' => \$verbose, '-vv' => \$extra_verbose ); - if ( $opt_help || !$success || !$out_file || !$files_path ) + if ( $opt_help || !$success || !$out_file || !$files_path ) { usage(); exit(1); @@ -116,9 +116,9 @@ sub parse_options sub get_files { local @main::file_list; - + find_files(\%files_hash); - + if ( !keys %files_hash ) { print_error("can't find any image lists in '$files_path'", 3); } @@ -132,31 +132,31 @@ sub find_files find({ wanted => \&wanted, no_chdir => 0 }, "$files_path"); foreach ( @main::file_list ) { /^\Q$files_path\E\/(.*)$/o; - $files_hash_ref->{$1}++; + $files_hash_ref->{$1}++; } } sub wanted { my $file = $_; - + if ( $file =~ /.*\.xml$/ && -f $file ) { push @main::file_list, $File::Find::name; } } -sub is_file_newer +sub is_file_newer { my $test_hash_ref = shift; my $reference_stamp = 0; - + print_message("checking timestamps ...") if $verbose; if ( -e $out_file ) { $reference_stamp = (stat($out_file))[9]; print_message("found $out_file with $reference_stamp ...") if $verbose; } return 1 if $reference_stamp == 0; - + foreach ( sort keys %{$test_hash_ref} ) { my $path = $files_path; $path .= "/" if "$path" ne ""; |