From 57f1fdd092116229816278e248f369f5623cfb26 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 5 Apr 2005 10:08:50 +0000
Subject: please perl_checker

---
 perl-install/network/adsl.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/network/adsl.pm')

diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index af8d0250c..e521443b9 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -43,7 +43,7 @@ If you do not know, choose 'use PPPoE'"),
                        pre => sub {
                            $wiz->{var}{adsl}{type} = $l{sagem}; # debug
                            $wiz->{var}{adsl}{type} ||= find { $netc->{autodetect}{adsl}{$_} } keys %l;
-                           print "\n\ntype is \"$wiz->{var}{adsl}{type}\"\n\n";
+                           print qq(\n\ntype is "$wiz->{var}{adsl}{type}"\n\n);
                        },
                        post => sub {
                            $wiz->{var}{adsl}{type} = find { $l{$_} eq $wiz->{var}{adsl}{type} } keys %l;
-- 
cgit v1.2.1