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

#i10000# use Carp

Browse source
This commit is contained in:
Rüdiger Timm 2005-11-07 16:05:43 +00:00
parent c7c73f6e11
commit 8d1906a3f5
2 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
solenv/bin/cwsanalyze.pl
View file

@ -7,9 +7,9 @@ eval 'exec perl -wS $0 ${1+"$@"}'
#
# $RCSfile: cwsanalyze.pl,v $
#
# $Revision: 1.11 $
# $Revision: 1.12 $
#
# last change: $Author: kz $ $Date: 2005-11-03 10:31:52 $
# last change: $Author: rt $ $Date: 2005-11-07 17:03:23 $
#
# The Contents of this file are made available subject to
# the terms of GNU Lesser General Public License Version 2.1.
@ -45,6 +45,7 @@ use File::Basename;
use Getopt::Long;
use Cwd;
use IO::Handle;
use Carp;
#### module lookup
my @lib_dirs;
@ -73,7 +74,7 @@ $log = Logging->new() if (!$@);
( my $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
my $script_rev;
my $id_str = ' $Revision: 1.11 $ ';
my $id_str = ' $Revision: 1.12 $ ';
$id_str =~ /Revision:\s+(\S+)\s+\$/
? ($script_rev = $1) : ($script_rev = "-");

7
solenv/bin/cwsresync.pl
View file

@ -7,9 +7,9 @@ eval 'exec perl -wS $0 ${1+"$@"}'
#
# $RCSfile: cwsresync.pl,v $
#
# $Revision: 1.19 $
# $Revision: 1.20 $
#
# last change: $Author: kz $ $Date: 2005-11-03 10:32:19 $
# last change: $Author: rt $ $Date: 2005-11-07 17:05:43 $
#
# The Contents of this file are made available subject to
# the terms of GNU Lesser General Public License Version 2.1.
@ -49,6 +49,7 @@ use File::Glob;
use File::Path;
use Getopt::Long;
use IO::Handle;
use Carp;
#### module lookup
my @lib_dirs;
@ -80,7 +81,7 @@ use CwsConfig;
( my $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
my $script_rev;
my $id_str = ' $Revision: 1.19 $ ';
my $id_str = ' $Revision: 1.20 $ ';
$id_str =~ /Revision:\s+(\S+)\s+\$/
? ($script_rev = $1) : ($script_rev = "-");