--- gnarr	2000/12/13 13:10:33	1.1.1.1
+++ gnarr	2000/12/13 14:00:35	1.4
@@ -1,15 +1,17 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 # public domain
 
 use strict;
 
 my $VERSION = "v2";
+my $PREFIX = "/usr/local";
 
-my $one = 0; # Heh heh.
+my $one = 1; # Heh heh.
 
 my %subrefs = ( '-h' => [\&help, 'print this help text'],
 		'-v' => [\&ver, 'print version information'],
-		'-1' => [\&one, 'print one cry and exit'],
+		'-1' => [\&one, 'print one cry and exit (default)'],
+		'-m' => [\&mult, 'print multiple cries'],
 		'-l' => [\&list, 'list substitutions (long)'] );
 
 my @place = ("hearth",
@@ -135,13 +137,20 @@
  }
 }
 
-open( BASE, "/etc/gnarrrc" );
-open( USER, "$ENV{HOME}/.gnarrrc" );
-my @base = (<BASE>, <USER>);
+my @base = ();
+
+if (open( BASE, "$PREFIX/etc/gnarrrc" )) {
+  push @base, (<BASE>);
+  close BASE;
+}
+if (open( USER, "$ENV{HOME}/.gnarrrc" )) {
+  push @base, (<USER>);
+  close USER;
+}
+
 chomp @base;
-close USER;
-close BASE;
 
+die("No data read from gnarrc files!\n") if ($#base == -1);
 
 do {
 
@@ -187,8 +196,10 @@
  print "Please send any enhancements to piman\@sacredchao.net.\n\n";
  exit();
 }
+
+sub one  { $one = 1; }
 
-sub one { $one = 1; }
+sub mult { $one = 0; }
 
 sub list {
   print "PLACE:\n"; print "  $_\n" foreach (@place);