jolheiser/nixpkgs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

switch-to-configuration: Fix bad Perl

Browse Source
This commit is contained in:
Eelco Dolstra 2012-10-14 21:12:11 -04:00
parent 53f216885f
commit 10ac80115b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
modules/system/activation/switch-to-configuration.pl
View File

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