summaryrefslogtreecommitdiffstats
path: root/perl-install/install/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2014-05-14 06:24:44 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-06-06 06:29:08 +0200
commitf7118a3cf285e2b97e5a67315ab0c10c15ea120a (patch)
treeac7d3970e49711dffe200241fac0a904e6fea68d /perl-install/install/gtk.pm
parentce6a2d0038e53f2d525c96b44fd11e88859a9d9e (diff)
downloaddrakx-f7118a3cf285e2b97e5a67315ab0c10c15ea120a.tar
drakx-f7118a3cf285e2b97e5a67315ab0c10c15ea120a.tar.gz
drakx-f7118a3cf285e2b97e5a67315ab0c10c15ea120a.tar.bz2
drakx-f7118a3cf285e2b97e5a67315ab0c10c15ea120a.tar.xz
drakx-f7118a3cf285e2b97e5a67315ab0c10c15ea120a.zip
simplify using qq()
Diffstat (limited to 'perl-install/install/gtk.pm')
-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;