perl_checker fixes

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);