summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig/various.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/Xconfig/various.pm')
-rw-r--r--perl-install/Xconfig/various.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/Xconfig/various.pm b/perl-install/Xconfig/various.pm
index 45b2c256e..9b9a43804 100644
--- a/perl-install/Xconfig/various.pm
+++ b/perl-install/Xconfig/various.pm
@@ -76,8 +76,12 @@ For this you have to plug your graphic card to your TV before booting your compu
Then choose the \"TVout\" entry in the bootloader
Do you have this feature?")) or return;
+
+ #- rough default value (rationale: http://download.nvidia.com/XFree86_40/1.0-2960/README.txt)
+ require timezone;
+ my $norm = timezone::read()->{timezone} =~ /America/ ? 'NTSC' : 'PAL';
- my $norm = $in->ask_from_list('', _("What norm is your TV using?"), [ 'NTSC', 'PAL' ]) or return;
+ $norm = $in->ask_from_list('', _("What norm is your TV using?"), [ 'NTSC', 'PAL' ], $norm) or return;
configure_FB_TVOUT({ norm => $norm });
}