Fix a Perl warning

This commit is contained in:
Eelco Dolstra 2012-08-20 11:32:50 -04:00
parent 08f14b33c1
commit 3f4ffffed7

View File

@ -114,7 +114,7 @@ while (my ($unit, $state) = each %{$activePrev}) {
# FIXME: do something? # FIXME: do something?
} else { } else {
my $unitInfo = parseUnit($newUnitFile); my $unitInfo = parseUnit($newUnitFile);
if ($unitInfo->{'X-RestartIfChanged'} eq "false") { if (($unitInfo->{'X-RestartIfChanged'} // "true") eq "false") {
push @unitsToSkip, $unit; push @unitsToSkip, $unit;
} else { } else {
# Record that this unit needs to be started below. We # Record that this unit needs to be started below. We