1
0
Fork 1
mirror of https://github.com/NixOS/nixpkgs.git synced 2024-12-02 18:42:15 +00:00

switch-to-configuration: Fix bad Perl

This commit is contained in:
Eelco Dolstra 2012-10-14 21:12:11 -04:00
parent 53f216885f
commit 10ac80115b

View file

@ -196,7 +196,7 @@ sub unique {
# unit checking code above.
my ($prevFss, $prevSwaps) = parseFstab "/etc/fstab";
my ($newFss, $newSwaps) = parseFstab "@out@/etc/fstab";
foreach my $mountPoint (keys ${prevFss}) {
foreach my $mountPoint (keys %$prevFss) {
my $prev = $prevFss->{$mountPoint};
my $new = $newFss->{$mountPoint};
my $unit = pathToUnitName($mountPoint) . ".mount";
@ -214,7 +214,7 @@ foreach my $mountPoint (keys ${prevFss}) {
}
# Also handles swap devices.
foreach my $device (keys ${prevSwaps}) {
foreach my $device (keys %$prevSwaps) {
my $prev = $prevSwaps->{$device};
my $new = $newSwaps->{$device};
if (!defined $new) {