diff options
| author | Kurt Zenker <kz@openoffice.org> | 2006-02-27 15:35:18 +0000 |
|---|---|---|
| committer | Kurt Zenker <kz@openoffice.org> | 2006-02-27 15:35:18 +0000 |
| commit | e38c48ac99a81eb529f7f40f6413197998f6a164 (patch) | |
| tree | 1750abad610115ba51c4104cf288e4a2d54a76ae /solenv/bin/packimages.pl | |
| parent | ff96aad1dbe7747607bb2737e071c873c3ab4371 (diff) | |
INTEGRATION: CWS ause050_SRC680 (1.12.222.1.2); FILE MERGED
2006/02/23 16:20:05 hjs 1.12.222.1.2.2: #i62473# check for successfull open() - cosmetic
2006/02/23 16:15:21 hjs 1.12.222.1.2.1: #i62473# check for successfull open()
Diffstat (limited to 'solenv/bin/packimages.pl')
| -rwxr-xr-x | solenv/bin/packimages.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/solenv/bin/packimages.pl b/solenv/bin/packimages.pl index ba593a890862..956597e84dd1 100755 --- a/solenv/bin/packimages.pl +++ b/solenv/bin/packimages.pl @@ -7,9 +7,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: packimages.pl,v $ # -# $Revision: 1.13 $ +# $Revision: 1.14 $ # -# last change: $Author: rt $ $Date: 2006-02-09 14:21:27 $ +# last change: $Author: kz $ $Date: 2006-02-27 16:35:18 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -67,7 +67,7 @@ my @custom_list; ( my $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; my $script_rev; -my $id_str = ' $Revision: 1.13 $ '; +my $id_str = ' $Revision: 1.14 $ '; $id_str =~ /Revision:\s+(\S+)\s+\$/ ? ($script_rev = $1) : ($script_rev = "-"); @@ -193,7 +193,7 @@ sub parse_image_list print_message("parsing '$image_list' ...") if $verbose; my $linecount = 0; - open(IMAGE_LIST, "< $image_list"); + open(IMAGE_LIST, "< $image_list") or die "ERROR: can't open $image_list: $!"; while ( <IMAGE_LIST> ) { $linecount++; next if /^\s*#/; |