summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/gtk.pm10
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;