diff options
author | Rüdiger Timm <rt@openoffice.org> | 2005-12-14 11:06:34 +0000 |
---|---|---|
committer | Rüdiger Timm <rt@openoffice.org> | 2005-12-14 11:06:34 +0000 |
commit | c753404001f9dbcb8ce8b45668bcfe5f22d02709 (patch) | |
tree | bed180fb144a0c5b2867a01873e54afbf5491ece /solenv/bin/mkout.pl | |
parent | bfe905d41239c2bc238fde12ae1cd481d40b996e (diff) |
INTEGRATION: CWS buildstatushtml2 (1.4.292); FILE MERGED
2005/11/07 12:58:09 vg 1.4.292.2: RESYNC: (1.4-1.5); FILE MERGED
2005/09/16 13:31:03 vg 1.4.292.1: #125903#
Diffstat (limited to 'solenv/bin/mkout.pl')
-rwxr-xr-x | solenv/bin/mkout.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/solenv/bin/mkout.pl b/solenv/bin/mkout.pl index 45fec2b85902..390c543f2842 100755 --- a/solenv/bin/mkout.pl +++ b/solenv/bin/mkout.pl @@ -7,9 +7,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: mkout.pl,v $ # -# $Revision: 1.5 $ +# $Revision: 1.6 $ # -# last change: $Author: rt $ $Date: 2005-09-07 22:12:10 $ +# last change: $Author: rt $ $Date: 2005-12-14 12:06:34 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -48,7 +48,7 @@ use File::Path; ( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; -$id_str = ' $Revision: 1.5 $ '; +$id_str = ' $Revision: 1.6 $ '; $id_str =~ /Revision:\s+(\S+)\s+\$/ ? ($script_rev = $1) : ($script_rev = "-"); @@ -70,7 +70,7 @@ $opt_r = 0; # create 'remote' subdirs 'class' => 0, 'inc' => 0, 'lib' => 1, - 'misc' => 1, + 'misc/logs' => 1, 'obj' => 1, 'res' => 1, 'slb' => 1, @@ -124,6 +124,8 @@ sub get_base { my (@field, $base, $dlst); my $path = cwd(); + print $path; + @field = split(/\//, $path); while ( $#field != -1 ) { |