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 --- |