strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

INTEGRATION: CWS vq34 (1.6.256); FILE MERGED

Browse source 
2006/07/12 03:21:58 vq 1.6.256.1: #i67256# Remove unneeded debugging output.
This commit is contained in:
Kurt Zenker 2006-07-19 08:28:45 +00:00
parent c051691f9f
commit 65aefd2922
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
solenv/bin/mkout.pl
View file

@ -7,9 +7,9 @@ eval 'exec perl -wS $0 ${1+"$@"}'
#
# $RCSfile: mkout.pl,v $
#
# $Revision: 1.6 $
# $Revision: 1.7 $
#
# last change: $Author: rt $ $Date: 2005-12-14 12:06:34 $
# last change: $Author: kz $ $Date: 2006-07-19 09:28:45 $
#
# 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.6 $ ';
$id_str = ' $Revision: 1.7 $ ';
$id_str =~ /Revision:\s+(\S+)\s+\$/
? ($script_rev = $1) : ($script_rev = "-");
@ -124,8 +124,6 @@ sub get_base {
my (@field, $base, $dlst);
my $path = cwd();
print $path;
@field = split(/\//, $path);
while ( $#field != -1 ) {