Sinnvollere Fehlermeldungen bei fehlerhaften Flash codes.

[mfinanz.git] / SL / Helper / Flash.pm

diff --git a/SL/Helper/Flash.pm b/SL/Helper/Flash.pm
index f55366c17778714e8ce2cb2d37cb0ea1d12591ed..2bbff75b1c525e3f785b8f835e89abbe690b6e7b 100644 (file)
--- a/SL/Helper/Flash.pm
+++ b/SL/Helper/Flash.pm
@@ -46,7 +46,10 @@ sub _store_flash {
 sub _check_category {
   my ($c) = @_;
   return $valid_categories{$c}
 sub _check_category {
   my ($c) = @_;
   return $valid_categories{$c}

-    || die 'invalid category for flash';
+    ||  do {
+      require Carp;
+      croak("invalid category '$c' for flash");
+    };

 }
 
 1;
 }
 
 1;