From b8db0a2154618259a85e9e96d0d664b6fc203632 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 22 Dec 2008 20:37:36 +0000
Subject: [PATCH] added strict/warnings and fixed some var handling.  also,
 make sure i capture the final result

git-svn-id: svn://svn.open-ils.org/ILS/trunk@11655 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
index 2d3a1e8911..0d1e7646e7 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
@@ -3,6 +3,7 @@
 package OpenILS::Application::PermaCrud;
 use OpenILS::Application;
 use base qw/OpenILS::Application/;
+use strict; use warnings;
 
 use Unicode::Normalize;
 use OpenSRF::EX qw/:try/;
@@ -71,10 +72,11 @@ sub CRUD_action_object_permcheck {
     }
 
     my $class_node;
+    my $error = '';
     try {
         ($class_node) = $xpc->findnodes( "//idl:class[\@id='$self->{class_hint}']", $idl->documentElement );
     } catch Error with {
-        my $error = shift;
+        $error = shift;
         $log->error("Error finding class node: $error [//idl:class[\@id='$self->{class_hint}']]");
         throw OpenSRF::DomainObject::oilsException->new(
             statusCode => 500,
@@ -94,7 +96,7 @@ sub CRUD_action_object_permcheck {
     try {
         ($action_node) = $xpc->findnodes( "perm:permacrud/perm:actions/perm:$self->{action}", $class_node );
     } catch Error with {
-        my $error = shift;
+        $error = shift;
         $log->error("Error finding action node: $error [perm:permacrud/perm:actions/perm:$self->{action}]");
         throw OpenSRF::DomainObject::oilsException->new(
             statusCode => 500,
@@ -190,7 +192,7 @@ sub CRUD_action_object_permcheck {
 
     $o_type =~ s/\./_/og;
     my $method = $self->{action} . "_$o_type";
-    $e->$method($obj) or return $e->die_event;
+    my $val = $e->$method($obj) or return $e->die_event;
     $e->commit;
 
     return $val;
-- 
2.11.0