diff options
| -rw-r--r-- | perl-install/install/gtk.pm | 10 |
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; |