escaped strings fixes

10 files changed, 72 insertions, 72 deletions

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index b213808b6..816e31a4a 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -92,7 +92,7 @@ sub read_grub() {
         next if /^\s*#/ || /^\s*$/;
         chomp;
 	my ($keyword, $v) = /^\s*(\S+)\s*(.*?)\s*$/ or do {
-            print STDERR "unknown line in /boot/grub/menu.lst: \"",  chomp_($_), "\"\n";
+            print STDERR 'unknown line in /boot/grub/menu.lst: "',  chomp_($_), q("\n);
             next;
         };
         if ($keyword eq 'title') {
@@ -758,7 +758,7 @@ sub install_yaboot {
 	log::l("writing yaboot config to $f");
 
 	print F "#yaboot.conf - generated by DrakX";
-	print F "init-message=\"\\n$bootloader->{'init-message'}\\n\"" if $bootloader->{'init-message'};
+	print F qq(init-message="\\n$bootloader->{'init-message'}\\n") if $bootloader->{'init-message'};
 
 	if ($bootloader->{boot}) {
 	    print F "boot=$bootloader->{boot}";
@@ -796,7 +796,7 @@ sub install_yaboot {
 		}
 		#- xfs module on PPC requires larger initrd - say 6MB?
 		print F "\tinitrd-size=6144" if $bootloader->{xfsroot};
-		print F "\tappend=\" $_->{append}\"" if $_->{append};
+		print F qq(\tappend=" $_->{append}") if $_->{append};
 		print F "\tread-write" if $_->{'read-write'};
 		print F "\tread-only" if !$_->{'read-write'};
 	    } else {
@@ -872,7 +872,7 @@ sub install_silo {
 		print F "\tpartition=$_->{partition}" if $_->{partition};
 		print F "\troot=$_->{root}" if $_->{root};
 		print F "\tinitrd=$initrd" if $_->{initrd};
-		print F "\tappend=\"$1\"" if $_->{append} =~ /^\s*"?(.*?)"?\s*$/;
+		print F qq(\tappend="$1") if $_->{append} =~ /^\s*"?(.*?)"?\s*$/;
 		print F "\tread-write" if $_->{'read-write'};
 		print F "\tread-only" if !$_->{'read-write'};
 	    }
@@ -953,7 +953,7 @@ sub write_lilo_conf {
 	local $bootloader->{default} = make_label_lilo_compatible($bootloader->{default});
 	$bootloader->{$_} and print F "$_=$bootloader->{$_}" foreach qw(boot map install vga default keytable);
 	$bootloader->{$_} and print F $_ foreach qw(linear geometric compact prompt nowarn restricted);
-	print F "append=\"$bootloader->{append}\"" if $bootloader->{append};
+	print F qq(append="$bootloader->{append}") if $bootloader->{append};
  	print F "password=", $bootloader->{password} if $bootloader->{password}; #- also done by msec
 	print F "timeout=", round(10 * $bootloader->{timeout}) if $bootloader->{timeout};
 	print F "serial=", $1 if get_append($bootloader, 'console') =~ /ttyS(.*)/;
@@ -974,7 +974,7 @@ sub write_lilo_conf {
 	    if ($_->{type} eq "image") {		
 		print F "\troot=$_->{root}" if $_->{root};
 		print F "\tinitrd=", $file2fullname->($_->{initrd}) if $_->{initrd};
-		print F "\tappend=\"$_->{append}\"" if $_->{append};
+		print F qq(\tappend="$_->{append}") if $_->{append};
 		print F "\tvga=$_->{vga}" if $_->{vga};
 		print F "\tread-write" if $_->{'read-write'};
 		print F "\tread-only" if !$_->{'read-write'};
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index f67eb5ce7..5d36342c7 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -338,7 +338,7 @@ sub pkg_install {
     log::l("selecting packages ".join(" ", @l));
     require pkgs;
     if ($::testing) {
-	log::l("selecting package \"$_\"") foreach @l;
+	log::l(qq(selecting package "$_")) foreach @l;
     } else {
 	$o->{packages}{rpmdb} ||= pkgs::rpmDbOpen($o->{prefix});
 	pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || die "$_ rpm not found") foreach @l;
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 98dadd2da..f6978adea 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -141,7 +141,7 @@ END
 	if ($replaced) {
 	    output($secrets, @l);
         } else {
-	    append_to_file($secrets, "$toreplace{login}  ppp0  \"$toreplace{passwd}\"\n");
+	    append_to_file($secrets, qq($toreplace{login}  ppp0  "$toreplace{passwd}"\n));
 	}
 	#- restore access right to secrets file, just in case.
 	chmod 0600, $secrets;
diff --git a/perl-install/network/nfs.pm b/perl-install/network/nfs.pm
index dae09af1b..20c9055f3 100644
--- a/perl-install/network/nfs.pm
+++ b/perl-install/network/nfs.pm
@@ -35,8 +35,8 @@ sub check {
 }
 
 sub find_servers {
-    my $pid2 = open(my $F2, "rpcinfo-flushed -b mountd 2 |");
-    my $pid3 = open(my $F3, "rpcinfo-flushed -b mountd 3 |");
+    open(my $F2, "rpcinfo-flushed -b mountd 2 |");
+    open(my $F3, "rpcinfo-flushed -b mountd 3 |");
 
     common::nonblock($F2);
     common::nonblock($F3);
diff --git a/perl-install/printer/detect.pm b/perl-install/printer/detect.pm
index 8455fe06e..e1583e311 100644
--- a/perl-install/printer/detect.pm
+++ b/perl-install/printer/detect.pm
@@ -186,7 +186,7 @@ sub whatNetPrinter {
     # delays caused by machines blocking their ports with a firewall
     local *F;
     open F, ($::testing ? "" : "chroot $::prefix/ ") .
-	"/bin/sh -c \"export LC_ALL=C; nmap -r -P0 --host_timeout 400 --initial_rtt_timeout 200 -p $portlist $hostlist\" |"
+	qq(/bin/sh -c "export LC_ALL=C; nmap -r -P0 --host_timeout 400 --initial_rtt_timeout 200 -p $portlist $hostlist" |)
 	or return @res;
     my ($host, $ip, $port, $modelinfo) = ("", "", "", "");
     while (my $line = <F>) {
@@ -252,7 +252,7 @@ sub getNetworkInterfaces() {
 	
     local *IFCONFIG_OUT;
     open IFCONFIG_OUT, ($::testing ? "" : "chroot $::prefix/ ") .
-	"/bin/sh -c \"export LC_ALL=C; ifconfig\" |" or return ();
+	'/bin/sh -c "export LC_ALL=C; ifconfig" |' or return ();
     while (my $readline = <IFCONFIG_OUT>) {
 	# New entry ...
 	if ($readline =~ /^(\S+)\s/) {
@@ -283,7 +283,7 @@ sub getIPsOfLocalMachine() {
 	
     local *IFCONFIG_OUT;
     open IFCONFIG_OUT, ($::testing ? "" : "chroot $::prefix/ ") .
-	"/bin/sh -c \"export LC_ALL=C; ifconfig\" |" or return ();
+	'/bin/sh -c "export LC_ALL=C; ifconfig" |' or return ();
     while (my $readline = <IFCONFIG_OUT>) {
 	# New entry ...
 	if ($readline =~ /^(\S+)\s/) {
@@ -325,7 +325,7 @@ sub getIPsInLocalNetworks() {
 	
     local *IFCONFIG_OUT;
     open IFCONFIG_OUT, ($::testing ? "" : "chroot $::prefix/ ") .
-	"/bin/sh -c \"export LC_ALL=C; ifconfig\" |" or return ();
+	'/bin/sh -c "export LC_ALL=C; ifconfig" |' or return ();
     while (my $readline = <IFCONFIG_OUT>) {
 	# New entry ...
 	if ($readline =~ /^(\S+)\s/) {
@@ -357,7 +357,7 @@ sub getIPsInLocalNetworks() {
     foreach my $bcast (@local_bcasts) {
 	local *F;
 	open F, ($::testing ? "" : "chroot $::prefix/ ") . 
-	    "/bin/sh -c \"export LC_ALL=C; ping -w 1 -b -n $bcast | cut -f 4 -d ' ' | sed s/:// | egrep '^[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+' | uniq | sort\" |" 
+	    qq(/bin/sh -c "export LC_ALL=C; ping -w 1 -b -n $bcast | cut -f 4 -d ' ' | sed s/:// | egrep '^[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+' | uniq | sort" |) 
 	    or next;
 	local $_;
 	while (<F>) { chomp; push @addresses, $_ }
@@ -365,7 +365,7 @@ sub getIPsInLocalNetworks() {
 	if (-x "/usr/bin/nmblookup") {
 	    local *F;
 	    open F, ($::testing ? "" : "chroot $::prefix/ ") . 
-		"/bin/sh -c \"export LC_ALL=C; nmblookup -B $bcast \\* | cut -f 1 -d ' ' | egrep '^[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+' | uniq | sort\" |" 
+		qq(/bin/sh -c "export LC_ALL=C; nmblookup -B $bcast \\* | cut -f 1 -d ' ' | egrep '^[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+' | uniq | sort" |)
 		or next;
 	    local $_;
 	    while (<F>) { 
@@ -384,7 +384,7 @@ sub getSMBPrinterShares {
     # SMB request to auto-detect shares
     local *F;
     open F, ($::testing ? "" : "chroot $::prefix/ ") .
-	"/bin/sh -c \"export LC_ALL=C; smbclient -N -L $host\" |" or return ();
+	qq(/bin/sh -c "export LC_ALL=C; smbclient -N -L $host" |) or return ();
     my $insharelist = 0;
     my @shares;
     while (my $l = <F>) {
@@ -416,7 +416,7 @@ sub getSNMPModel {
     # SNMP request to auto-detect model
     local *F;
     open F, ($::testing ? $::prefix : "chroot $::prefix/ ") .
-	"/bin/sh -c \"scli -v 1 -c 'show printer info' $host\" |" or
+	qq(/bin/sh -c "scli -v 1 -c 'show printer info' $host" |) or
 	return { CLASS => 'PRINTER',
 		 MODEL => N("Unknown Model"),
 		 MANUFACTURER => "",
@@ -477,8 +477,8 @@ sub network_running() {
     # If the network is not running return 0, otherwise 1.
     local *F; 
     open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . 
-	"/bin/sh -c \"export LC_ALL=C; /sbin/ifconfig\" |" or
-	    die "Could not run \"ifconfig\"!";
+	'/bin/sh -c "export LC_ALL=C; /sbin/ifconfig" |' or
+	    die 'Could not run "ifconfig"!';
     while (my $line = <F>) {
 	if ($line !~ /^lo\s+/ && # The loopback device can have been 
                                    # started by the spooler's startup script
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 9fd9997c3..ddadb605d 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -126,8 +126,8 @@ sub assure_device_is_available_for_cups {
     for ($i = 0; $i < $maxattempts; $i++) {
 	local *F; 
 	open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . 
-	    "/bin/sh -c \"export LC_ALL=C; /usr/sbin/lpinfo -v\" |" or
-	    die "Could not run \"lpinfo\"!";
+	    '/bin/sh -c "export LC_ALL=C; /usr/sbin/lpinfo -v" |' or
+	    die 'Could not run "lpinfo"!';
 	while (my $line = <F>) {
 	    if ($line =~ /$sdevice/) { # Found a line containing the device
 		                       # name, so CUPS knows it.
@@ -2265,7 +2265,7 @@ sub configure_hpoj {
 	    if ($bus ne "hpjd") {
 		# Stop ptal-mlcd daemon for locally connected devices
 		local *F;
-		if (open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . "ps auxwww | grep \"ptal-mlcd $bus:probe\" | grep -v grep | ") {
+		if (open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . qq(ps auxwww | grep "ptal-mlcd $bus:probe" | grep -v grep | )) {
 		    my $line = <F>;
 		    if ($line =~ /^\s*\S+\s+(\d+)\s+/) {
 			my $pid = $1;
@@ -2326,34 +2326,35 @@ sub configure_hpoj {
     # Write file header.
     my $date = chomp_(`date`);
     print CONFIG
-	"# Added $date by \"printerdrake\".\n" .
-	"\n" .
-	"# The basic format for this file is \"key[+]=value\".\n" .
-	"# If you say \"+=\" instead of \"=\", then the value is appended to any\n" .
-	"# value already defined for this key, rather than replacing it.\n" .
-	"\n" .
-	"# Comments must start at the beginning of the line.  Otherwise, they may\n" .
-	"# be interpreted as being part of the value.\n" .
-	"\n" .
-	"# If you have multiple devices and want to define options that apply to\n" .
-	"# all of them, then put them in the file /etc/ptal/defaults, which is read\n" .
-	"# in before this file.\n" .
-	"\n" .
-	"# The format version of this file:\n" .
-	"#   ptal-init ignores devices with incorrect/missing versions.\n" .
-	"init.version=2\n";
+qq(
+# Added $date by "printerdrake"
+
+# The basic format for this file is "key[+]=value".
+# If you say "+=" instead of "=", then the value is appended to any
+# value already defined for this key, rather than replacing it.
+
+# Comments must start at the beginning of the line.  Otherwise, they may
+# be interpreted as being part of the value.
+
+# If you have multiple devices and want to define options that apply to
+# all of them, then put them in the file /etc/ptal/defaults, which is read
+# in before this file.
+
+# The format version of this file:
+#   ptal-init ignores devices with incorrect/missing versions.
+init.version=2\n");
 
     # Write model string.
     if ($model_long !~ /\S/) {
 	print CONFIG
 	    "\n" .
-	    "# \"printerdrake\" couldn't read the model but added this device anyway:\n" .
+	    qq(# "printerdrake" couldn't read the model but added this device anyway:\n) .
 	    "# ";
     } else {
 	print CONFIG
 	    "\n" .
 	    "# The device model that was originally detected on this port:\n" .
-	    "#   If this ever changes, then you should re-run \"printerdrake\"\n" .
+	    qq(#   If this ever changes, then you should re-run "printerdrake"\n) .
 	    "#   to delete and re-configure this device.\n";
 	if ($bus eq "par") {
 	    print CONFIG
@@ -2362,7 +2363,7 @@ sub configure_hpoj {
 	}
     }
     print CONFIG
-	"init.mlcd.append+=-devidmatch \"$model_long\"\n";
+	qq(init.mlcd.append+=-devidmatch "$model_long"\n);
 
     # Write serial-number string.
     if ($serialnumber_long !~ /\S/) {
@@ -2380,7 +2381,7 @@ sub configure_hpoj {
 	}
     }
     print CONFIG
-	"init.mlcd.append+=-devidmatch \"$serialnumber_long\"\n";
+	qq(init.mlcd.append+=-devidmatch "$serialnumber_long"\n);
 
     if ($bus =~ /^[pu]/) {
 	print CONFIG
@@ -2398,7 +2399,7 @@ sub configure_hpoj {
 	    "\n" .
 	    "# ptal-mlcd's remote console can be useful for debugging, but may be a\n" .
 	    "# security/DoS risk otherwise.  In any case, it's accessible with the\n" .
-	    "# command \"ptal-connect mlc:<XXX>:<YYY> -service PTAL-MLCD-CONSOLE\".\n" .
+	    qq(# command "ptal-connect mlc:<XXX>:<YYY> -service PTAL-MLCD-CONSOLE".\n) .
 	    "# Uncomment the following line if you want to enable this feature for\n" .
 	    "# this device:\n" .
 	    "# init.mlcd.append+=-remconsole\n" .
@@ -2433,7 +2434,7 @@ sub configure_hpoj {
 	    "\n" .
 	    "# If you have more than one photo-card-capable peripheral and you want to\n" .
 	    "# assign particular TCP port numbers and mtools drive letters to each one,\n" .
-	    "# then change the line below to use the \"-portoffset <n>\" option.\n" .
+	    qq(# then change the line below to use the "-portoffset <n>" option.\n) .
 	    "init.photod.append+=-maxaltports 26\n";
     }
     close(CONFIG);
@@ -2466,7 +2467,7 @@ sub usbdevice() {
     # device numbers
     local *F;
     open F, ($::testing ? "" : "chroot $::prefix/ ") .
-	"/bin/sh -c \"export LC_ALL=C; lsusb -vv 2> /dev/null\" |"
+	'/bin/sh -c "export LC_ALL=C; lsusb -vv 2> /dev/null" |'
 	or return undef;
     my ($bus, $device, $model, $serial) = ("", "", "", "");
     my $found = 0;
diff --git a/perl-install/printer/office.pm b/perl-install/printer/office.pm
index eccde17b5..4a6ae02b5 100644
--- a/perl-install/printer/office.pm
+++ b/perl-install/printer/office.pm
@@ -20,7 +20,7 @@ our $suites = {
 	'remove' => \&removeopenofficeprinterentry,
 	'file_name' => '^(.*)/share/psprint/psprint.conf$',
 	'param' => ["Generic Printer", "Command="],
-	'perl' => "/usr/bin/perl -p -e \"s=/euro /unused=/Euro /unused=\" | /usr/bin/",
+	'perl' => '/usr/bin/perl -p -e "s=/euro /unused=/Euro /unused=" | /usr/bin/',
 	'files' => ["/usr/lib/office6*/share/psprint/psprint.conf",
 		    "/usr/local/lib/office6*/share/psprint/psprint.conf",
 		    "/usr/local/office6*/share/psprint/psprint.conf",
@@ -31,7 +31,7 @@ our $suites = {
 	'remove' => \&removestarofficeprinterentry,
 	'file_name' => '^(.*)/share/xp3/Xpdefaults$',
 	'param' => ["ports", "default_queue="],
-	'perl' => "/usr/bin/perl -p -e \"s=16#80 /euro=16#80 /Euro=\" | /usr/bin/",
+	'perl' => '/usr/bin/perl -p -e "s=16#80 /euro=16#80 /Euro=" | /usr/bin/',
 	'files' => ["/usr/lib/*/share/xp3/Xpdefaults",
 		    "/usr/local/lib/*/share/xp3/Xpdefaults",
 		    "/usr/local/*/share/xp3/Xpdefaults",
@@ -216,7 +216,7 @@ sub makestarofficeprinterentry {
     # symbol correctly.
     $configfile = removeentry("ports", "$queue=", $configfile);
     $configfile = addentry("ports", 
-			   "$queue=/usr/bin/perl -p -e \"s=16#80 /euro=16#80 /Euro=\" | /usr/bin/" . $spoolers{$printer->{SPOOLER}}{print_command} . " -P $queue",
+			   qq($queue=/usr/bin/perl -p -e "s=16#80 /euro=16#80 /Euro=" | /usr/bin/) . $spoolers{$printer->{SPOOLER}}{print_command} . " -P $queue",
 			   $configfile);
     # Make printer's section
     $configfile = addsection("$queue,PostScript,$queue", $configfile);
@@ -270,7 +270,7 @@ sub makeopenofficeprinterentry {
     # symbol correctly.
     $configfile = removeentry($queue, "Command=", $configfile);
     $configfile = addentry($queue, 
-			   "Command=/usr/bin/perl -p -e \"s=/euro /unused=/Euro /unused=\" | /usr/bin/" . $spoolers{$printer->{SPOOLER}}{print_command} . " -P $queue",
+			   qq(Command=/usr/bin/perl -p -e "s=/euro /unused=/Euro /unused=" | /usr/bin/) . $spoolers{$printer->{SPOOLER}}{print_command} . " -P $queue",
 			   $configfile);
     # "Comment" line 
     $configfile = removeentry($queue, "Comment=", $configfile);
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 80bf1360a..5a85d2467 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -224,7 +224,7 @@ N("Examples for correct IPs:\n") .
 					   return (1,1);
 				       }
 				       if ($hostchoice eq $menu[0]) {
-					   $address = "\@LOCAL";
+					   $address = '@LOCAL';
 				       } elsif ($hostchoice eq $menu[-1]) {
 					   $address = $ip;
 				       } else {
@@ -1245,7 +1245,7 @@ sub setup_smb {
 	    $smbserver = $1;
 	    $smbshare = $2;
 	} else {
-	    die "The \"smb://\" URI must at least contain the server name and the share name!\n";
+	    die qq(The "smb://" URI must at least contain the server name and the share name!\n);
 	}
 	if (network::is_ip($smbserver)) {
 	    $smbserverip = $smbserver;
@@ -1433,7 +1433,7 @@ sub setup_ncp {
 	    $ncpserver = $1;
 	    $ncpqueue = $2;
 	} else {
-	    die "The \"ncp://\" URI must at least contain the server name and the share name!\n";
+	    die qq(The "ncp://" URI must at least contain the server name and the share name!\n);
 	}
     }
 
@@ -1652,7 +1652,7 @@ list => [ $printer->{currentqueue}{connect},
 	  "ncp://",
 	  "socket://",
 	  "file:/",
-	  "postpipe:\"\"",
+	  'postpipe:""',
 	  ], not_edit => 0 }, ],
 complete => sub {
     unless ($printer->{currentqueue}{connect} =~ /[^:]+:.+/) {
@@ -1732,7 +1732,7 @@ sub setup_postpipe {
     if ($printer->{configured}{$queue} &&
 	$printer->{currentqueue}{connect} =~ m/^postpipe:/) {
 	$uri = $printer->{currentqueue}{connect};
-	$commandline = $1 if $uri =~ m!^\s*postpipe:\"(.*)\"$!;
+	$commandline = $1 if $uri =~ m!^\s*postpipe:"(.*)"$!;
     } else {
 	$commandline = "";
     }
@@ -3701,7 +3701,7 @@ sub mainwindow_interactive {
 		    sub { 
 			# Save the cursor position
 			$cursorpos = $menuchoice;
-			$menuchoice = "\@addprinter";
+			$menuchoice = '@addprinter';
 			1; 
 		    },
 		val => N("Add a new printer") },
@@ -3711,7 +3711,7 @@ sub mainwindow_interactive {
 		      sub { 
 			  # Save the cursor position
 			  $cursorpos = $menuchoice;
-			  $menuchoice = "\@refresh";
+			  $menuchoice = '@refresh';
 			  1;
 		      },
 		  val => ($#printerlist < 0 ?
@@ -3721,7 +3721,7 @@ sub mainwindow_interactive {
 		      sub { 
 			  # Save the cursor position
 			  $cursorpos = $menuchoice;
-			  $menuchoice = "\@cupsconfig";
+			  $menuchoice = '@cupsconfig';
 			  1;
 		      },
 		  val => N("CUPS configuration") }) : ()),
@@ -3733,7 +3733,7 @@ sub mainwindow_interactive {
 		     sub {
 			 # Save the cursor position
 			 $cursorpos = $menuchoice;
-			 $menuchoice = "\@spooler";
+			 $menuchoice = '@spooler';
 			 1;
 		     },
 		 val => N("Change the printing system") } :
@@ -3742,18 +3742,18 @@ sub mainwindow_interactive {
 		    sub {
 			# Save the cursor position
 			$cursorpos = $menuchoice;
-			$menuchoice = "\@usermode";
+			$menuchoice = '@usermode';
 			1 
 			},
 			    val => ($printer->{expert} ? N("Normal Mode") :
 				    N("Expert Mode")) },
 	      { clicked_may_quit =>
-		    sub { $menuchoice = "\@quit"; 1 },
+		    sub { $menuchoice = '@quit'; 1 },
 		    val => ($::isEmbedded || $::isInstall ?
 			    N("Done") : N("Quit")) },
 	      ]);
 	# Toggle expert mode and standard mode
-	if ($menuchoice eq "\@usermode") {
+	if ($menuchoice eq '@usermode') {
 	    $printer->{expert} = printer::main::set_usermode(!$printer->{expert});
 	    # Read printer database for the new user mode
 	    %printer::main::thedb = ();
@@ -3777,19 +3777,19 @@ sub mainwindow_interactive {
 	    next;
 	}
 	# Refresh printer list
-	next if $menuchoice eq "\@refresh";
+	next if $menuchoice eq '@refresh';
 	# Configure CUPS
-	if ($menuchoice eq "\@cupsconfig") {
+	if ($menuchoice eq '@cupsconfig') {
 	    config_cups($printer, $in, $upNetwork);
 	    next;
 	}
 	# Call function to switch to another spooler
-	if ($menuchoice eq "\@spooler") {
+	if ($menuchoice eq '@spooler') {
 	    $printer->{SPOOLER} = setup_default_spooler($printer, $in, $upNetwork) || $printer->{SPOOLER};
 	    next;
 	}
 	# Add a new print queue
-	if ($menuchoice eq "\@addprinter") {
+	if ($menuchoice eq '@addprinter') {
 	    $newcursorpos = add_printer($printer, $in, $upNetwork);
 	}
 	# Edit an existing print queue
@@ -3803,7 +3803,7 @@ sub mainwindow_interactive {
 	    $newcursorpos = 1;
 	}
 	#- Close printerdrake
-	$menuchoice eq "\@quit" and last;
+	$menuchoice eq '@quit' and last;
 
 	if ($newcursorpos) {
 	    # Set the cursor onto the current menu entry
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index da262e4de..84e9d1b2e 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -140,9 +140,9 @@ foreach (@ARGV) {
 
 
 sub version {
-    print STDERR "Drakxtools version 9.1.0
-Copyright (C) 1999-2002 MandrakeSoft by <install\@mandrakesoft.com>
-",  $::license, "\n";
+    print STDERR 'Drakxtools version 9.1.0
+Copyright (C) 1999-2002 MandrakeSoft by <install@mandrakesoft.com>
+',  $::license, "\n";
 }
 
 ################################################################################
@@ -207,7 +207,7 @@ sub check_kernel_module_packages {
     eval {
 	local *_;
 	require urpm;
-	my $urpm = new urpm;
+	my $urpm = urpm->new;
 	$urpm->read_config(nocheck_access => 1);
 	foreach (grep { !$_->{ignore} } @{$urpm->{media} || []}) {
 	    $urpm->parse_synthesis("$urpm->{statedir}/synthesis.$_->{hdlist}");
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 5da13b44c..c6fd1410d 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -48,7 +48,6 @@ unless ($::no_ugtk_init) {
     Gtk2->init;
     c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains;
     $::need_utf8_i18n = 1;
-    Glib->install_exception_handler(sub { warn "$_[0]"; exit(255) }) if 0.95 < $Gtk2::VERSION;
 }