perl syntax typo

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2_2@9883 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
index 0c70961..b2e7234 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
@@ -692,7 +692,7 @@ sub generate_fines {
                        $client->respond( "Error processing overdue circulation [".$c->id."]:\n\n$e\n" );
                        $log->error("Error processing overdue circulation [".$c->id."]:\n$e\n");
                        $self->method_lookup('open-ils.storage.transaction.rollback')->run;
-                       throw $e ifif ($e =~ /IS NOT CONNECTED TO THE NETWORK/o);
+                       throw $e if ($e =~ /IS NOT CONNECTED TO THE NETWORK/o);
                };
        }
 }