From fc6a72175bf8ee7aed801e4003991e8e9c67c304 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 12 Nov 2002 14:05:52 +0000
Subject: add/remove some spaces to make perl_checker happy

---
 perl-install/ugtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/ugtk.pm')

diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 49a0a7ab6..2e100ede9 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -410,7 +410,7 @@ sub create_treeitem {
     my $w = new Gtk::TreeItem($name);
     $w->signal_connect(key_press_event => sub {
         my (undef, $e) = @_;
-        local $_ = chr ($e->{keyval});
+        local $_ = chr $e->{keyval};
 
 	if ($e->{keyval} > 0x100) {
 	    my $n;
@@ -736,7 +736,7 @@ sub gtkpowerpack {
 	ref($_[0]) eq 'HASH' || ref($_[0]) eq 'ARRAY' and $RefAttrs = shift;
 	foreach ("expand", "fill", "padding", "pack_end") {
 	    if ($RefDefaultAttrs->{$_} eq 'arg') {
-		ref ($_[0]) and die "error in packing definition\n";
+		ref $_[0] and die "error in packing definition\n";
 		$attr{$_} = shift;
 		ref($RefAttrs) eq 'ARRAY' and shift @$RefAttrs;
 	    } elsif (ref($RefAttrs) eq 'HASH' && defined($RefAttrs->{$_})) {
-- 
cgit v1.2.1