[Rt-commit] r13107 - rt/branches/3.8-TESTING/share/html/Admin/Tools/Shredder

[ruz at bestpractical.com]

Author: ruz
Date: Tue Jun 10 07:54:10 2008
New Revision: 13107

Modified:
   rt/branches/3.8-TESTING/share/html/Admin/Tools/Shredder/index.html

Log:
* fix #9237 at rt3.fsck.com

Modified: rt/branches/3.8-TESTING/share/html/Admin/Tools/Shredder/index.html
==============================================================================
--- rt/branches/3.8-TESTING/share/html/Admin/Tools/Shredder/index.html	(original)
+++ rt/branches/3.8-TESTING/share/html/Admin/Tools/Shredder/index.html	Tue Jun 10 07:54:10 2008
@@ -173,7 +173,7 @@
     push @{ $messages{Success} }, 'executed plugin successfuly';
 
     my $shredder = new RT::Shredder;
-    foreach my $o( splice @objs ) {
+    foreach my $o( grep defined, splice @objs ) {
         eval { push @objs, $shredder->CastObjectsToRecords( Objects => $o ) };
         $catch_non_fatals->() && last if $@;
     }