X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5e9aaf1c3e83467ed4f6550627f8c7e6ec6fa811..87eebe6:/SL/Template/Plugin/L.pm

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index fa1869215..d9deef78e 100644
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -2,6 +2,7 @@ package SL::Template::Plugin::L;
 
 use base qw( Template::Plugin );
 use Template::Plugin;
+use Data::Dumper;
 use List::MoreUtils qw(apply);
 use List::Util qw(max);
 use Scalar::Util qw(blessed);
@@ -115,7 +116,7 @@ sub radio_button_tag {
   my ($self, $name, %attributes) = _hashify(2, @_);
 
   _set_id_attribute(\%attributes, $name);
-  $attributes{value}   = 1 unless defined $attributes{value};
+  $attributes{value}   = 1 unless exists $attributes{value};
   my $label            = delete $attributes{label};
 
   if ($attributes{checked}) {
@@ -439,7 +440,6 @@ sub online_help_tag {
 
 sub dump {
   my $self = shift;
-  require Data::Dumper;
   return '<pre>' . Data::Dumper::Dumper(@_) . '</pre>';
 }