diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-06-07 16:55:45 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-06-07 16:55:45 -0700 |
| commit | c24d6e2242ae0e026684b8f95decf156aba6e75e (patch) | |
| tree | 8597d00e2e6bf2cf400437b9344f43b1500da412 /rt/lib/RT/Shredder.pm | |
| parent | 6686c29104e555ea23446fe1db330664fa110bc0 (diff) | |
rt 4.0.6
Diffstat (limited to 'rt/lib/RT/Shredder.pm')
| -rw-r--r-- | rt/lib/RT/Shredder.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rt/lib/RT/Shredder.pm b/rt/lib/RT/Shredder.pm index 10d353677..40c73b36d 100644 --- a/rt/lib/RT/Shredder.pm +++ b/rt/lib/RT/Shredder.pm @@ -351,6 +351,8 @@ sub CastObjectsToRecords } elsif ( UNIVERSAL::isa( $targets, 'SCALAR' ) || !ref $targets ) { $targets = $$targets if ref $targets; my ($class, $id) = split /-/, $targets; + RT::Shredder::Exception->throw( "Unsupported class $class" ) + unless $class =~ /^\w+(::\w+)*$/; $class = 'RT::'. $class unless $class =~ /^RTx?::/i; eval "require $class"; die "Couldn't load '$class' module" if $@; |