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/bin/mkout.pl | |
| parent | e4401ad9957f0764640ddba6708a4d4a8b2bcabc (diff) | |
again fix script_name
Diffstat (limited to 'solenv/bin/mkout.pl')
| -rwxr-xr-x | solenv/bin/mkout.pl | 8 |
1 files changed, 4 insertions, 4 deletions
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 = "-"); |