From 6d5cba8e5b4f47874e8aab377b7b4181aff6faa2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 15 Oct 2004 12:34:05 +0000 Subject: cleanup thanks to perl_checker --- perl-install/network/netconnect.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/network/netconnect.pm') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 6771b8210..57dd82c88 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -754,7 +754,7 @@ or skip and do it later."), } return "adsl_no_firmawre" if $adsl_answer eq N("Do it later"); - my $_b = before_leaving { fs::umount('/mnt') } if $mounted; + my $_b = $mounted && before_leaving { fs::umount('/mnt') }; if (!$adsl_failed) { if (-e "$source/$file") { cp_af("$source/$file", $destination) if !$::testing; -- cgit v1.2.1