deliver.pl (30acf5e8) deliver.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

--- 25 unchanged lines hidden (view full) ---

34use File::DosGlob 'glob';
35use File::Path;
36use File::Spec;
37
38#### script id #####
39
40( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
41
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

--- 25 unchanged lines hidden (view full) ---

34use File::DosGlob 'glob';
35use File::Path;
36use File::Spec;
37
38#### script id #####
39
40( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
41
42$id_str = ' $Revision: 275594 $ ';
42$id_str = ' $Revision$ ';
43$id_str =~ /Revision:\s+(\S+)\s+\$/
44 ? ($script_rev = $1) : ($script_rev = "-");
45
46
47#### globals ####
48
49### valid actions ###
50# if you add a action 'foo', than add 'foo' to this list and

--- 1459 unchanged lines hidden --- 		43$id_str =~ /Revision:\s+(\S+)\s+\$/
44 ? ($script_rev = $1) : ($script_rev = "-");
45
46
47#### globals ####
48
49### valid actions ###
50# if you add a action 'foo', than add 'foo' to this list and

--- 1459 unchanged lines hidden ---