diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-05-14 06:24:44 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-06-06 06:29:08 +0200 |
| commit | f7118a3cf285e2b97e5a67315ab0c10c15ea120a (patch) | |
| tree | ac7d3970e49711dffe200241fac0a904e6fea68d | |
| parent | ce6a2d0038e53f2d525c96b44fd11e88859a9d9e (diff) | |
| download | drakx-f7118a3cf285e2b97e5a67315ab0c10c15ea120a.tar drakx-f7118a3cf285e2b97e5a67315ab0c10c15ea120a.tar.gz drakx-f7118a3cf285e2b97e5a67315ab0c10c15ea120a.tar.bz2 drakx-f7118a3cf285e2b97e5a67315ab0c10c15ea120a.tar.xz drakx-f7118a3cf285e2b97e5a67315ab0c10c15ea120a.zip | |
simplify using qq()
| -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; |