modules « perl-install - drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

Mode	Name	Size
-rw-r--r--	any_conf.pm	5294	log stats plain
-rw-r--r--	interactive.pm	5831	log stats plain
-rw-r--r--	modprobe_conf.pm	4176	log stats plain
-rw-r--r--	modules_conf.pm	1580	log stats plain
-rw-r--r--	parameters.pm	662	log stats plain

pan>); foreach (@etcfiles) { if ($_ eq '/etc/sudoers' #- /etc/sudoers can't be a link || $_ eq '/etc/mtab' #- same for /etc/mtab || !-f || -l && readlink =~ m|^/|) { #- we want to trap relative symlinks only next; } my $dest = "$destdir$_"; mkdir_p(dirname($dest)); #- case of newly created directories logit("restoring broken symlink $_ -> $dest"); if (-l) { system("cp $_ $dest 2>/dev/null"); } else { system("mv $_ $dest 2>/dev/null"); } symlinkf($dest, $_); } foreach (difference2([ grep { -f && s/^\Q$destdir\E// } glob_("$destdir$dir/*") ], [ @etcfiles ])) { logit("removing $destdir$_ because of deleted $_"); unlink "$destdir$_"; } }