commit 3915572

style

 1@@ -19,7 +19,7 @@ my $haslodir = $ENV{'HASLODIR'} || "$home/.haslo";
 2 
 3 sub writernppassword
 4 {
 5-	unless(-d $haslodir){
 6+	unless (-d $haslodir) {
 7 		print STDERR "creating directory $haslodir\n";
 8 		mkdir $haslodir
 9 			or die "couldn't create directory $haslodir: $!\n";
10@@ -72,7 +72,7 @@ sub doget
11 sub dolist
12 {
13 	opendir DIR, $haslodir or die "couldn't open $haslodir: $!\n";
14-	for(readdir DIR){
15+	for (readdir DIR) {
16 		next unless s/.rnp$//;
17 		my $decoded = decode_base32 $_;
18 		print "$decoded\n";
19@@ -84,8 +84,8 @@ sub doput
20 {
21 	my $target = $ARGV[1] or usage;
22 	$target = encode_base32 $target;
23-	my($password, $confirm);
24-	do{
25+	my ($password, $confirm);
26+	do {
27 		ReadMode 'noecho';
28 		print STDERR "enter password for $ARGV[1]: ";
29 		$password = ReadLine 0;
30@@ -94,7 +94,7 @@ sub doput
31 		$confirm = ReadLine 0;
32 		print STDERR "\n";
33 		ReadMode 'restore';
34-	}while($password ne $confirm);
35+	} while ($password ne $confirm);
36 	writernppassword $target, $password;
37 }
38