From cd839fec913f5cd0ea287fcc83390ae7fe2a56b6 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 22 Apr 2009 18:49:23 +0000
Subject: [PATCH] split wants a regex pattern to split on

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12969 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
index 761d3b5a6d..186cccbb00 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
@@ -526,7 +526,7 @@ sub grouped_events {
             if (my $group = $e->event->event_def->group_field) {
 
                 # split the grouping link steps
-                my @steps = split '.', $group;
+                my @steps = split /\./, $group;
 
                 # find the grouping object
                 my $node = $e->target;
-- 
2.11.0