From 22ad938758373ec4e2f8490d62f2cdc237d50d7c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 11 Nov 2002 22:20:22 +0000 Subject: - replace ... =~ 'foo' with ... =~ /foo/ - remove unneeded parentheses for things like ... if (...) --- perl-install/my_gtk.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/my_gtk.pm') diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 89cacba8c..66b57ddfa 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -264,8 +264,8 @@ sub _create_window($$) { my $s = "\xFF" x ($wia*$he); my $wib = $wia*8; my $dif = $wib-$wi; - foreach my $y (0..$sqw-1) { vec($s, $wib-1-$dif-$_+$wib*$y, 1) = 0x0 foreach (0..$sqw-1) } - foreach my $y (0..$sqw-1) { vec($s, (($he-1)*$wib)-$wib*$y+$_, 1) = 0x0 foreach (0..$sqw-1) } + foreach my $y (0..$sqw-1) { vec($s, $wib-1-$dif-$_+$wib*$y, 1) = 0x0 foreach 0..$sqw-1 } + foreach my $y (0..$sqw-1) { vec($s, (($he-1)*$wib)-$wib*$y+$_, 1) = 0x0 foreach 0..$sqw-1 } $w->realize; my $b = Gtk::Gdk::Bitmap->create_from_data($w->window, $s, $wib, $he); $w->window->shape_combine_mask($b, 0, 0); -- cgit v1.2.1