From 0302e7b96e5fa60a67047b94de861d3d5cd72684 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 27 Jan 2009 20:19:39 +0000
Subject: [PATCH] WebGUI Perl::Critic policy.  Handle the case when the
 namespace is variable instead of a literal.

---
 t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm b/t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm
index ab7806805..1d3327836 100644
--- a/t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm
+++ b/t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm
@@ -96,6 +96,10 @@ sub violates {
         my @arguments = _get_args($arg_list);
         my $namespace;
         if ($arguments[1]) {
+            my $secondArgument = $arguments[1]->[0];
+            return unless $secondArgument->isa('PPI::Token::Quote');
+            use Data::Dumper;
+            print Dumper($arguments[1]);
             $namespace = $arguments[1]->[0]->string;
         }
         else {