diff options
-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 ) { |