1 files changed, 4 insertions, 6 deletions
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;