diff options
| -rwxr-xr-x | sboconfig | 6 | ||||
| -rwxr-xr-x | sboupgrade | 2 | 
2 files changed, 4 insertions, 4 deletions
| @@ -96,7 +96,7 @@ sub config_write {  		my ($fh, $filename) = make_temp_file ();  		open my $reader, '<', $conf_file;  		print {$fh} <$reader>; -		close ($fh); +		close $fh;  		# tie the file so that if $key is already there, we just change that  		# line and untie it  		tie my @temp, 'Tie::File', $filename; @@ -114,14 +114,14 @@ sub config_write {  		if ($has eq 'FALSE') {  			open (my $writer, '>>', $filename);  			print {$writer} "$key=$val\n"; -			close ($writer); +			close $writer;  		}  		move ($filename, $conf_file);  	} else {  		# no config file, easiest case of all.  		open my $writer, '>', $conf_file;  		print {$writer} "$key=$val\n"; -		close ($writer); +		close $writer;  	}  } @@ -168,7 +168,7 @@ sub readme_prompt {  	my $readme = do {local $/; <$readme_file>};  	unless (grok_readme ($sbo, $readme) ) {  		print "\n". $readme; -		close ($readme_file); +		close $readme_file;  		print "\nProceed with $sbo? [y]: ";  		my $test = <STDIN>;  		$test = 'y' if $test eq "\n"; | 
