use $curproc->config(), pcb() not { config }, { pcb } respectively.

1 files changed, 5 insertions, 5 deletions

diff --git a/fml/lib/FML/Restriction/Post.pm b/fml/lib/FML/Restriction/Post.pm
index b707b594..1e9ef211 100644
--- a/fml/lib/FML/Restriction/Post.pm
+++ b/fml/lib/FML/Restriction/Post.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Post.pm,v 1.5 2003/08/03 14:46:41 fukachan Exp $
+# $FML: Post.pm,v 1.6 2003/08/23 14:38:01 fukachan Exp $
 #
 
 package FML::Restriction::Post;
@@ -52,7 +52,7 @@ sub reject_system_accounts
     my $curproc = $self->{ _curproc };
     my $cred    = $curproc->{ credential };
     my $match   = $cred->match_system_accounts($sender);
-    my $pcb     = $curproc->{ pcb };
+    my $pcb     = $curproc->pcb();
 
     if ($match) {
 	$curproc->log("${rule}: $match matches sender address");
@@ -87,7 +87,7 @@ sub permit_member_maps
     my ($self, $rule, $sender) = @_;
     my $curproc = $self->{ _curproc };
     my $cred    = $curproc->{ credential };
-    my $pcb     = $curproc->{ pcb };
+    my $pcb     = $curproc->pcb();
 
     # Q: the mail sender is a ML member?
     if ($cred->is_member($sender)) {
@@ -126,7 +126,7 @@ sub permit_commands_for_stranger
 {
     my ($self, $rule, $sender) = @_;
     my $curproc = $self->{ _curproc };
-    my $pcb     = $curproc->{ pcb };
+    my $pcb     = $curproc->pcb();
 
     use FML::Command::DataCheck;
     my $check = new FML::Command::DataCheck;
@@ -147,7 +147,7 @@ sub reject
 {
     my ($self, $rule, $sender) = @_;
     my $curproc = $self->{ _curproc };
-    my $pcb     = $curproc->{ pcb };
+    my $pcb     = $curproc->pcb();
 
     unless ($pcb->get("check_restrictions", "deny_reason")) {
 	$pcb->set("check_restrictions", "deny_reason", $rule);