summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-05-28 22:37:23 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-05-28 22:37:23 +0200
commit07e1724c742f46f39bbd2274c7418b78faa72238 (patch)
tree2fa50b9d48e9a8cd723ff479ebba9b63317b57a3
parentdf74e103d8de6d7cc45cc3e2a99f4b9c8fff6085 (diff)
downloaddrakx-07e1724c742f46f39bbd2274c7418b78faa72238.tar
drakx-07e1724c742f46f39bbd2274c7418b78faa72238.tar.gz
drakx-07e1724c742f46f39bbd2274c7418b78faa72238.tar.bz2
drakx-07e1724c742f46f39bbd2274c7418b78faa72238.tar.xz
drakx-07e1724c742f46f39bbd2274c7418b78faa72238.zip
convert a cople comments to POD
-rw-r--r--perl-install/install/any.pm26
1 files changed, 21 insertions, 5 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 5187ebc78..0cfffad1a 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -140,8 +140,13 @@ Do you have a supplementary installation medium to configure?",
$suppl;
}
-#- if the supplementary media is networked, but not the main one, network
-#- support must be installed and network started.
+=item prep_net_suppl_media($o)
+
+If the supplementary media is networked, but not the main one, network
+support must be installed and network started.
+
+=cut
+
sub prep_net_suppl_media {
my ($o) = @_;
@@ -1446,10 +1451,21 @@ sub write_fstab {
fs::write_fstab($o->{all_hds}, $::prefix);
}
-sub adjust_files_mtime_to_timezone() {
- #- to ensure linuxconf does not cry against those files being in the future
- #- to ensure fc-cache works correctly on fonts installed after reboot
+=item adjust_files_mtime_to_timezone() {
+
+Fixes mtime of a couple important files according to timezone in order to:
+
+=over 4
+=item * to ensure linuxconf does not cry against those files being in the future
+
+=item * to ensure fc-cache works correctly on fonts installed after reboot
+
+=back
+
+=cut
+
+sub adjust_files_mtime_to_timezone() {
my $timezone_shift = run_program::rooted_get_stdout($::prefix, 'date', '+%z');
my ($h, $m) = $timezone_shift =~ /\+(..)(..)/ or return;
my $now = time() - ($h * 60 + $m * 60) * 60;