From 07976168c949d68dfedea4610424f2c0ce8c117d Mon Sep 17 00:00:00 2001 From: Geoffrey Thomas Date: Tue, 28 Apr 2009 19:13:11 -0400 Subject: [PATCH] Make un- and -.d matching case-insensitive. From: Geoffrey Thomas Signed-off-by: Geoffrey Thomas --- lib/BarnOwl/Module/Alias.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/lib/BarnOwl/Module/Alias.pm b/lib/BarnOwl/Module/Alias.pm index fce1192..b8cd2bc 100644 --- a/lib/BarnOwl/Module/Alias.pm +++ b/lib/BarnOwl/Module/Alias.pm @@ -33,7 +33,7 @@ if(-r "$cfg/classmap") { sub BarnOwl::Message::Zephyr::context { my $self = shift; my $class = $self->class; - my ($un, $baseclass, $d) = $class =~ /^((?:un)*)(.+?)((?:[.]d)*)$/; + my ($un, $baseclass, $d) = $class =~ /^((?:un)*)(.+?)((?:[.]d)*)$/i; $baseclass = $aliases{lc($baseclass)} || $baseclass; return "$un$baseclass$d"; } -- 1.6.0