diff options
| author | ivan <ivan> | 2011-04-18 23:15:19 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-04-18 23:15:19 +0000 |
| commit | b5c4237a34aef94976bc343c8d9e138664fc3984 (patch) | |
| tree | ba7cb2c13c199b1012c661fcf4f248e7b7e3d36f /rt/lib/RT/Shredder/Plugin.pm | |
| parent | 96a0d937cdfe26d691e59139088e33e0bc3e1184 (diff) | |
| parent | 75162bb14b3e38d66617077843f4dfdcaf09d5c4 (diff) | |
This commit was generated by cvs2svn to compensate for changes in r11022,
which included commits to RCS files with non-trunk default branches.
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; |