From c753404001f9dbcb8ce8b45668bcfe5f22d02709 Mon Sep 17 00:00:00 2001 From: RĂ¼diger Timm Date: Wed, 14 Dec 2005 11:06:34 +0000 Subject: 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# --- solenv/bin/mkout.pl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'solenv/bin/mkout.pl') 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 ) { -- cgit