--- fvwm/modules/FvwmConsole/FvwmConsoleC.pl.in
+++ fvwm/modules/FvwmConsole/FvwmConsoleC.pl.in
@@ -152,7 +152,7 @@ sub read_config {
 	    $key = $keys[1].$keys[2].$keys[3];
 	    $val = $vals[2].$vals[3].$vals[4];
 
-	    if( defined %{$User::{$hash}} ) {
+	    if( %{$User::{$hash}} ) {
             User::bind( $hash, $key, $val );
 		  }
     }
@@ -430,7 +430,7 @@ sub main::input {
 	my($init_in,$op);
 
 	$off = 0 if( !defined $off );
-	*hist = *main::Hist if( ! defined @hist );
+	*hist = *main::Hist if( ! @hist );
 	$isp = ++$#hist ;
 	$wisp = $isp;
 	if( -f "/vmunix" ) {
@@ -714,7 +714,7 @@ sub bind {
     # if there is no arguments, then list them
 	my($hash,$key,$val) = @_;
 	my( $mod,$chr,$v2,$k,$cnt );
-	if( defined %{$hash} ) {
+	if( %{$hash} ) {
 		$k = $key;
 	    if( $hash eq "Key" ) {
 			($v2 = $val) =~ s/\s*[\(;].*//;