1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 88320483f..281a6c456 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -315,9 +315,9 @@ sub h2widget {
 sub create_entry_element {
     my ($text, $value, $label) = @_;
     my $e;
-    if(ref ($text) =~ /HASH/) {
+    if(ref $text =~ /HASH/) {
 	return ([ "$label : ", h2widget($text, $label) ]);
-    } elsif (ref ($text) =~ /ARRAY/) {
+    } elsif (ref $text =~ /ARRAY/) {
 	return ([ "$label : ", h2widget($text, $label) ]);
     } else {
 	$e = new Gtk2::Entry;