diff options
Diffstat (limited to 'rt/lib/RT/Shredder/Plugin.pm')
| -rw-r--r-- | rt/lib/RT/Shredder/Plugin.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/rt/lib/RT/Shredder/Plugin.pm b/rt/lib/RT/Shredder/Plugin.pm index 60b5b1835..b7c63ec7f 100644 --- a/rt/lib/RT/Shredder/Plugin.pm +++ b/rt/lib/RT/Shredder/Plugin.pm @@ -127,7 +127,10 @@ sub List push @files, glob $mask; } - my %res = map { $_ =~ m/([^\\\/]+)\.pm$/; $1 => $_ } reverse @files; + my %res; + for my $f (reverse @files) { + $res{$1} = $_ if $f =~ /([^\\\/]+)\.pm$/; + } return %res unless $type; |