From 10ac80115b9c2c760dcd3f1c1beb1390b5cd2e21 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Sun, 14 Oct 2012 21:12:11 -0400
Subject: [PATCH] switch-to-configuration: Fix bad Perl

---
 modules/system/activation/switch-to-configuration.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/system/activation/switch-to-configuration.pl b/modules/system/activation/switch-to-configuration.pl
index 2b26801f35f..41487de9745 100644
--- a/modules/system/activation/switch-to-configuration.pl
+++ b/modules/system/activation/switch-to-configuration.pl
@@ -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) {