diff options
| author | Jens-Heiner Rechtien <hr@openoffice.org> | 2001-04-19 15:20:05 +0000 |
|---|---|---|
| committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2001-04-19 15:20:05 +0000 |
| commit | 01d83f66a478931d25764d34704e3a1f8559acfb (patch) | |
| tree | 857e7dc1d6479f34c5239d96f7a67d000cf8f36b /solenv | |
| parent | e4401ad9957f0764640ddba6708a4d4a8b2bcabc (diff) | |
again fix script_name
Diffstat (limited to 'solenv')
| -rwxr-xr-x | solenv/bin/deliver.pl | 8 | ||||
| -rwxr-xr-x | solenv/bin/mkout.pl | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/solenv/bin/deliver.pl b/solenv/bin/deliver.pl index 6e605b15c2e4..2b705c3a37e5 100755 --- a/solenv/bin/deliver.pl +++ b/solenv/bin/deliver.pl @@ -5,9 +5,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: deliver.pl,v $ # -# $Revision: 1.2 $ +# $Revision: 1.3 $ # -# last change: $Author: hr $ $Date: 2001-04-19 15:54:36 $ +# last change: $Author: hr $ $Date: 2001-04-19 16:20:05 $ # # The Contents of this file are made available subject to the terms of # either of the following licenses @@ -75,9 +75,9 @@ use File::Path; #### script id ##### -( $script_name = $0 ) =~ s/^.*\W(\w+).pl$/$1/; +( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; -$id_str = ' $Revision: 1.2 $ '; +$id_str = ' $Revision: 1.3 $ '; $id_str =~ /Revision:\s+(\S+)\s+\$/ ? ($script_rev = $1) : ($script_rev = "-"); diff --git a/solenv/bin/mkout.pl b/solenv/bin/mkout.pl index 8d05f6c218e1..d8165702e775 100755 --- a/solenv/bin/mkout.pl +++ b/solenv/bin/mkout.pl @@ -5,9 +5,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: mkout.pl,v $ # -# $Revision: 1.2 $ +# $Revision: 1.3 $ # -# last change: $Author: hr $ $Date: 2001-04-19 15:54:36 $ +# last change: $Author: hr $ $Date: 2001-04-19 16:20:05 $ # # The Contents of this file are made available subject to the terms of # either of the following licenses @@ -73,9 +73,9 @@ use File::Path; #### script id ##### -( $script_name = $0 ) =~ s/^.*\W(\w+)\.pl$/$1/; +( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; -$id_str = ' $Revision: 1.2 $ '; +$id_str = ' $Revision: 1.3 $ '; $id_str =~ /Revision:\s+(\S+)\s+\$/ ? ($script_rev = $1) : ($script_rev = "-"); |