Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!elroy.jpl.nasa.gov!decwrl!pa.dec.com!rust.zso.dec.com!shlump.nac.dec.com!decvax.DEC.COM!evans
From: evans@decvax.DEC.COM (Marc Evans)
Newsgroups: comp.lang.perl
Subject: Re: Porting PERL on Decstation 5000 running Ultrix 4.0
Message-ID: <21225@shlump.nac.dec.com>
Date: 19 Mar 91 12:25:40 GMT
References: <12540@bsu-cs.bsu.edu> <21207@shlump.nac.dec.com>
Sender: news@shlump.nac.dec.com
Reply-To: evans@decvax.DEC.COM
Organization: Synergytics
Lines: 19

In article <21207@shlump.nac.dec.com>, evans@decvax.DEC.COM (Marc Evans) writes:
|> 	exit 0 if ($#ARGV < 0);
|> 	$dbname = $ARGV[0];
|> 	dbmopen(%s,$dbname,0666);
|> 	$s{'foo'}++;
|> 	$s{'bar'}++;
|> 	dbmclose(%stats);
|> 	exit 0;

In the above sample code I the line dbmclose(%stats) really is dbmclose(%s).
Thanks to Randall for pointing out this typo I made when simplifying the script
for posting...

- Marc
-- 
===========================================================================
Marc Evans - WB1GRH - evans@decvax.DEC.COM  | Synergytics     (603)635-8876
      Unix and X Software Consultant        | 21 Hinds Ln, Pelham, NH 03076
===========================================================================