packimages.pl (86e1cf34) | packimages.pl (b9fd132d) |
---|---|
1: 2eval 'exec perl -wS $0 ${1+"$@"}' 3 if 0; 4#************************************************************** 5# 6# Licensed to the Apache Software Foundation (ASF) under one 7# or more contributor license agreements. See the NOTICE file 8# distributed with this work for additional information --- 42 unchanged lines hidden (view full) --- 51my $do_rebuild = 0; # is rebuilding zipfile required? 52 53my @custom_list; 54#### script id ##### 55 56( my $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; 57 58my $script_rev; | 1: 2eval 'exec perl -wS $0 ${1+"$@"}' 3 if 0; 4#************************************************************** 5# 6# Licensed to the Apache Software Foundation (ASF) under one 7# or more contributor license agreements. See the NOTICE file 8# distributed with this work for additional information --- 42 unchanged lines hidden (view full) --- 51my $do_rebuild = 0; # is rebuilding zipfile required? 52 53my @custom_list; 54#### script id ##### 55 56( my $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; 57 58my $script_rev; |
59my $id_str = ' $Revision: 1.17 $ '; | 59my $id_str = ' $Revision$ '; |
60$id_str =~ /Revision:\s+(\S+)\s+\$/ 61 ? ($script_rev = $1) : ($script_rev = "-"); 62 63print "$script_name -- version: $script_rev\n"; 64 65#### main ##### 66 67parse_options(); --- 370 unchanged lines hidden --- | 60$id_str =~ /Revision:\s+(\S+)\s+\$/ 61 ? ($script_rev = $1) : ($script_rev = "-"); 62 63print "$script_name -- version: $script_rev\n"; 64 65#### main ##### 66 67parse_options(); --- 370 unchanged lines hidden --- |