X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/aa7f51db81934e47ff7bac0a15cef97572d4c6f2..45c42be0153b638549e1098fc0ff4af01c3172e5:/SL/Helper/Flash.pm

diff --git a/SL/Helper/Flash.pm b/SL/Helper/Flash.pm
index f55366c17..2bbff75b1 100644
--- 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}
-    || die 'invalid category for flash';
+    ||  do {
+      require Carp;
+      croak("invalid category '$c' for flash");
+    };
 }
 
 1;