diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-10 00:54:27 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-10 00:54:27 +0000 |
| commit | 3567c50a33be996d7a3f4fd6c622622105d55a51 (patch) | |
| tree | 525589a2426f64fc2d1b9e8fe00b58c31bced634 /perl-install/standalone/drakautoinst | |
| parent | 24267eb313f4272a92e0909ca47a831f7ce047c0 (diff) | |
| download | drakx-3567c50a33be996d7a3f4fd6c622622105d55a51.tar drakx-3567c50a33be996d7a3f4fd6c622622105d55a51.tar.gz drakx-3567c50a33be996d7a3f4fd6c622622105d55a51.tar.bz2 drakx-3567c50a33be996d7a3f4fd6c622622105d55a51.tar.xz drakx-3567c50a33be996d7a3f4fd6c622622105d55a51.zip | |
minimal perl_checker fixes to have only warnings
Diffstat (limited to 'perl-install/standalone/drakautoinst')
| -rwxr-xr-x | perl-install/standalone/drakautoinst | 4 |
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; |