diff options
| author | Herb Lewis <herb@samba.org> | 1997-12-01 14:50:52 +0000 |
|---|---|---|
| committer | Herb Lewis <herb@samba.org> | 1997-12-01 14:50:52 +0000 |
| commit | 365f1eadaa969e807dd8906a3291100b4a37def6 (patch) | |
| tree | 4f9ad67c913eed8811ecece693b03f25b51e28b8 /packaging/SGI/idb.pl | |
| parent | bea2394b49bfa5db08c45b2ff76e5bb643cec629 (diff) | |
| download | samba-365f1eadaa969e807dd8906a3291100b4a37def6.tar.gz samba-365f1eadaa969e807dd8906a3291100b4a37def6.tar.bz2 samba-365f1eadaa969e807dd8906a3291100b4a37def6.zip | |
dded error checking to scripts
(This used to be commit b7e1265f106010e03d92575f4578162ec659994b)
Diffstat (limited to 'packaging/SGI/idb.pl')
| -rwxr-xr-x | packaging/SGI/idb.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/packaging/SGI/idb.pl b/packaging/SGI/idb.pl index 4e32bdb526..c4a03c817b 100755 --- a/packaging/SGI/idb.pl +++ b/packaging/SGI/idb.pl @@ -10,7 +10,7 @@ chdir '../../'; chdir $curdir; # We don't want the files listed in .cvsignore in the source tree -open(IGNORES,"../../source/.cvsignore"); +open(IGNORES,"../../source/.cvsignore") || die "Unable to open .cvsignore file\n"; while (<IGNORES>) { chop; $ignores{$_}++; @@ -18,7 +18,7 @@ while (<IGNORES>) { close IGNORES; # get the names of all the binary files to be installed -open(MAKEFILE,"Makefile"); +open(MAKEFILE,"Makefile") || die "Unable to open Makefile\n"; @makefile = <MAKEFILE>; @sprogs = grep(/^SPROGS /,@makefile); @progs1 = grep(/^PROGS1 /,@makefile); @@ -71,7 +71,7 @@ if (@codepage) { # release @allfiles = grep(!/^.*\.o$/ & !/^packaging\/SGI\/bins/ & !/^packaging\/SGI\/catman/ & !/^packaging\/SGI\/html/ & !/^packaging\/SGI\/codepage/, @allfiles); -open(IDB,">samba.idb"); +open(IDB,">samba.idb") || die "Unable to open samba.idb for output\n"; print IDB "f 0644 root sys etc/config/samba packaging/SGI/samba.config samba.sw.base config(update)\n"; print IDB "f 0755 root sys etc/init.d/samba packaging/SGI/samba.rc samba.sw.base\n"; |