perl_checker compliance ("ref" now need parentheses in many case)

1 files changed, 2 insertions, 2 deletions

diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index bc2a07fe6..d13accd73 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -33,7 +33,7 @@ sub new {
 	goto &{$::{$interactiveClass . "::"}{new}};
     } else {
 	@ISA = ('install_steps_auto_install_non_interactive', @ISA);
-	(bless {}, ref $type || $type)->install_steps::new($o);
+	(bless {}, ref($type) || $type)->install_steps::new($o);
     }
 }
 
@@ -87,7 +87,7 @@ sub rebootNeeded {
 }
 
 sub ask_warn {
-    log::l(ref $_[1] ? join " ", @{$_[1]} : $_[1]);
+    log::l(ref($_[1]) ? join " ", @{$_[1]} : $_[1]);
 }
 
 sub wait_message {}