[ViewVC] Diff of: cvs/deliantra/Deliantra/Deliantra.pm

Comparing deliantra/Deliantra/Deliantra.pm (file contents):
Revision 1.12 by root, Thu Feb 9 19:59:29 2006 UTC vs.
Revision 1.13 by root, Thu Feb 9 20:54:42 2006 UTC

 use strict;
 use base 'Exporter';
+use Carp ();
 use Storable;
 #XXX: The map_* procedures scream for a map-object
 our @EXPORT =
       arch_extends
       map_get_tile_stack map_push_tile_stack map_pop_tile_stack
    );
 our $LIB = $ENV{CROSSFIRE_LIBDIR}
-   or die "\$CROSSFIRE_LIBDIR must be set\n";
+   or Carp::croak "\$CROSSFIRE_LIBDIR must be set\n";
 sub TILESIZE (){ 32 }
 our $ARCH;
+our %FIELD_MULTILINE = (
+   msg => "endmsg",
+);
+# not used yet, maybe alphabetical is ok
+our @FIELD_ORDER = (qw(name name_pl));
+# not used yet, AND NOT CHECKED, should also be BY TYPE
+our %FIELD_NORMALIZE = (
+   "enter_x" => "hp",
+   "enter_y" => "sp",
+);
 sub read_pak($;$) {
    my ($path, $cache) = @_;
    eval {
       && Storable::retrieve $cache
    } or do {
       my %pak;
       open my $fh, "<:raw", $path
-         or die "$_[0]: $!";
+         or Carp::croak "$_[0]: $!";
       while (<$fh>) {
          my ($type, $id, $len, $path) = split;
          $path =~ s/.*\///;
          read $fh, $pak{$path}, $len;
       }
    } or do {
       my %arc;
       my ($more, $prev);
       open my $fh, "<:raw", $path
-         or die "$path: $!";
+         or Carp::croak "$path: $!";
       my $parse_block; $parse_block = sub {
          my %arc = @_;
          while (<$fh>) {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines