Commit 337a8c89 authored by Ruslan Zakirov's avatar Ruslan Zakirov
Browse files

get rid of uninit warning

parent 33d02398
......@@ -208,7 +208,7 @@ sub GetCurrentUser {
$RT::Logger->debug("Found pseudoheader: $1 => $2");
}
my %cmds;
while ( my $key = _CanonicalizeCommand( lc shift @items ) ) {
while ( my $key = _CanonicalizeCommand( shift @items ) ) {
my $val = shift @items;
# strip leading and trailing spaces
$val =~ s/^\s+|\s+$//g;
......@@ -650,6 +650,9 @@ sub _SetAttribute {
sub _CanonicalizeCommand {
my $key = shift;
return $key unless defined $key;
$key = lc $key;
# CustomField commands
$key =~ s/^(add|del|)c(?:ustom)?-?f(?:ield)?\.?[({\[](.*)[)}\]]$/$1customfield{$2}/i;
return $key;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment