diff options
| author | Kurt Zenker <kz@openoffice.org> | 2006-07-19 08:28:45 +0000 |
|---|---|---|
| committer | Kurt Zenker <kz@openoffice.org> | 2006-07-19 08:28:45 +0000 |
| commit | 65aefd292263e4a9876d833f689c239bccae399a (patch) | |
| tree | ed3d4196149a28985beac9f83f401403c07abaaa /solenv/bin/mkout.pl | |
| parent | c051691f9fda7ca26868f2b7748105ecf9debde8 (diff) | |
INTEGRATION: CWS vq34 (1.6.256); FILE MERGED
2006/07/12 03:21:58 vq 1.6.256.1: #i67256# Remove unneeded debugging output.
Diffstat (limited to 'solenv/bin/mkout.pl')
| -rwxr-xr-x | solenv/bin/mkout.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/solenv/bin/mkout.pl b/solenv/bin/mkout.pl index 390c543f2842..6e8df331c244 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.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 ) { |