From 49b9e2a1403b474c06ea06d359214da104f09b84 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 6 Jan 2005 11:36:58 +0000
Subject: perl_checker fixes

---
 gurpmi | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'gurpmi')

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);
-- 
cgit v1.2.1