From f7118a3cf285e2b97e5a67315ab0c10c15ea120a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 14 May 2014 06:24:44 +0200
Subject: simplify using qq()

---
 perl-install/install/gtk.pm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index a4479a21b..23c10ccbb 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -257,8 +257,7 @@ sub createXconf {
     return if !$Driver;
 
      my $resolution = $Driver eq 'fbdev' ? '"default"' : '"800x600" "640x480"';
-     output($file, sprintf(<<'END', $Driver, $resolution));
-Section "ServerFlags"
+     output($file, qq(Section "ServerFlags"
 EndSection
 
 Section "Module"
@@ -277,7 +276,7 @@ EndSection
 
 Section "Device"
     Identifier  "device"
-    Driver      "%s"
+    Driver      "$Driver"
 EndSection
 
 Section "Screen"
@@ -287,7 +286,7 @@ Section "Screen"
     DefaultColorDepth 16
     Subsection "Display"
         Depth 16
-        Modes %s
+        Modes $resolution
     EndSubsection
 EndSection
 
@@ -299,8 +298,7 @@ Section "ServerLayout"
     Identifier "layout"
     Screen "screen"
 EndSection
-
-END
+));
 }
 
 1;
-- 
cgit v1.2.1