summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-01-06 11:36:58 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-01-06 11:36:58 +0000
commit49b9e2a1403b474c06ea06d359214da104f09b84 (patch)
tree52a9a3b92a2c9dddb49fad854853905b37826fa0
parent78e1ddb88cecf02d00dfdcc5498edc1a471375d4 (diff)
downloadurpmi-49b9e2a1403b474c06ea06d359214da104f09b84.tar
urpmi-49b9e2a1403b474c06ea06d359214da104f09b84.tar.gz
urpmi-49b9e2a1403b474c06ea06d359214da104f09b84.tar.bz2
urpmi-49b9e2a1403b474c06ea06d359214da104f09b84.tar.xz
urpmi-49b9e2a1403b474c06ea06d359214da104f09b84.zip
perl_checker fixes
-rw-r--r--gurpmi6
1 files changed, 4 insertions, 2 deletions
diff --git a/gurpmi b/gurpmi
index fa2c43ad..d245315a 100644
--- a/gurpmi
+++ b/gurpmi
@@ -1,5 +1,7 @@
#!/usr/bin/perl
+#- Copyright (C) 2005 Mandrakesoft
+
use strict;
use warnings;
@@ -80,8 +82,8 @@ sub new_label {
my $label = Gtk2::Label->new($msg);
$label->set_line_wrap(1);
$label->set_alignment(0.5, 0.5);
- if (($msg =~ y/\n/\n/) > 5) {
- my $sw = Gtk2::ScrolledWindow->new();
+ if (($msg =~ tr/\n/\n/) > 5) {
+ my $sw = Gtk2::ScrolledWindow->new;
$sw->set_policy('never', 'automatic');
$sw->add_with_viewport($label);
$sw->set_size_request(-1,200);