1 files changed, 7 insertions, 8 deletions
diff --git a/lib/Multi/Anime.pm b/lib/Multi/Anime.pm
index 42bd52bf..1215a4a1 100644
--- a/lib/Multi/Anime.pm
+++ b/lib/Multi/Anime.pm
@@ -125,7 +125,7 @@ sub cmd_anime { # cmd, arg
   }
 
   if(@push) {
-    my $s = tie my %s, 'Tie::ShareLite', @VNDB::SHMOPTS;
+    my $s = tie my %s, 'Tie::ShareLite', -key => $VNDB::S{sharedmem_key}, -create => 'yes', -destroy => 'no', -mode => 0666;
     $s->lock(LOCK_EX);
     my @q = $s{anime} ? @{$s{anime}} : ();
     push @q, grep { 
@@ -143,7 +143,7 @@ sub cmd_anime { # cmd, arg
 sub nextcmd {
   return if $_[HEAP]{lm};
 
-  my $s = tie my %s, 'Tie::ShareLite', @VNDB::SHMOPTS;
+  my $s = tie my %s, 'Tie::ShareLite', -key => $VNDB::S{sharedmem_key}, -create => 'yes', -destroy => 'no', -mode => 0666;
   my @q = $s{anime} ? @{$s{anime}} : ();
   undef $s;
 
@@ -188,8 +188,8 @@ sub nextcmd {
     $_.'='.$cmd{$_}
   } keys %cmd);
   $_[HEAP]{w}->put({ payload => [ $cmd ]});
-  $VNDB::DEBUG && printf " > %s\n", $cmd;
- 
+
+  #$_[KERNEL]->call(core => log => 3, '> %s', $cmd);
   $_[KERNEL]->delay(receivepacket => $_[HEAP]{timeout}, { payload => [ $_[HEAP]{tag}.' 100 TIMEOUT' ] });
   $_[HEAP]{lm} = time;
 }
@@ -208,7 +208,6 @@ sub receivepacket { # input, wheelid
   } else {
     $_[KERNEL]->call(core => log => 3, 'Received from AniDB after %.2fs: %d %s',
       time-$_[HEAP]{lm}, $code, $msg);
-    $VNDB::DEBUG && print ' < '.join("\n < ", @r)."\n";
   }
 
  # just handle anime data, even if the tag is not correct
@@ -263,8 +262,8 @@ sub updateanime { # aid, data|'notfound'
       $_ =~ s/`/'/g;
     }
     $col[3] = $1 if $col[3] =~ /^([0-9]+)/; # remove multi-year stuff
-    for(0..$#$VNDB::ANITYPE) {
-      $col[4] = $_ if lc($VNDB::ANITYPE->[$_][1]) eq lc($col[4]);
+    for(0..$#{$VNDB::S{anime_types}}) {
+      $col[4] = $_ if lc($VNDB::S{anime_types}[$_][1]) eq lc($col[4]);
     }
     $col[4] = 0 if $col[4] !~ /^[0-9]+$/;
     $col[2] = '' if $col[2] =~ /^0,/;
@@ -286,7 +285,7 @@ sub updateanime { # aid, data|'notfound'
     undef, @col) if $r < 1;
 
  # remove from queue
-  my $s = tie my %s, 'Tie::ShareLite', @VNDB::SHMOPTS;
+  my $s = tie my %s, 'Tie::ShareLite', -key => $VNDB::S{sharedmem_key}, -create => 'yes', -destroy => 'no', -mode => 0666;
   $s->lock(LOCK_EX);
   my @q = grep $_ != $_[ARG0], ($s{anime} ? @{$s{anime}} : ());
   $s{anime} = \@q;