diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2006-01-03 09:12:23 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2006-01-03 09:12:23 +0000 |
| commit | b2d4b45c8fe52f7f42ad6bc4a65f0a633601edc8 (patch) | |
| tree | c323ac57a4d47a08a0cae44e91085430b29b8e71 /postprocess | |
| parent | 90ab8986865e0c2c9bb80c3b56e5b30dcbd0706b (diff) | |
#i10000# Made search pattern even saver to correctly identify module name on child workspaces with linked modules.
Diffstat (limited to 'postprocess')
| -rw-r--r-- | postprocess/checkdeliver/checkdeliver.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/postprocess/checkdeliver/checkdeliver.pl b/postprocess/checkdeliver/checkdeliver.pl index 5c0bfa2a0954..fd2661bfe401 100644 --- a/postprocess/checkdeliver/checkdeliver.pl +++ b/postprocess/checkdeliver/checkdeliver.pl @@ -7,9 +7,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: checkdeliver.pl,v $ # -# $Revision: 1.4 $ +# $Revision: 1.5 $ # -# last change: $Author: rt $ $Date: 2006-01-03 09:55:59 $ +# last change: $Author: rt $ $Date: 2006-01-03 10:12:23 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -175,7 +175,7 @@ sub check my $sfile = "$solverdir/$delivered{$file}"; # on CWS modules may exist as link only, named <module>.lnk if ( $islinked ) { - $ofile =~ s/\/$module\//\/$module.lnk\//; + $ofile =~ s/$srcdir\/$module\//$srcdir\/$module.lnk\//; } if ( $milestoneext ) { # deliver log files do not contain milestone extension on solver @@ -206,8 +206,8 @@ sub check } } } else { - print STDERR "Error: no such file '$ofile'" if ( ! -e $ofile ); - print STDERR "Error: no such file '$sfile'" if ( ! -e $sfile ); + print STDERR "Error: no such file '$ofile'\n" if ( ! -e $ofile ); + print STDERR "Error: no such file '$sfile'\n" if ( ! -e $sfile ); $error ++; } } |