commit 186d121

Emilia Smólska  ·  2026-08-02 02:27:27 +0000 UTC
parent c776ed0 
woaw i can do that
2 files changed,  +4, -4
M haslo
M test.pl
M haslo
+3, -3 
 1@@ -13,9 +13,9 @@ sub usage
 2 	die "usage: haslo gen|get|put name\n       haslo list\n";
 3 }
 4 
 5-my $home = $ENV{'HOME'} or die "\$HOME not set\n";
 6-my $hasloemail = $ENV{'HASLOEMAIL'} or die "\$HASLOEMAIL not set\n";
 7-my $haslodir = $ENV{'HASLODIR'} || "$home/.haslo";
 8+my $home = $ENV{HOME} or die "\$HOME not set\n";
 9+my $hasloemail = $ENV{HASLOEMAIL} or die "\$HASLOEMAIL not set\n";
10+my $haslodir = $ENV{HASLODIR} || "$home/.haslo";
11 
12 sub writernppassword
13 {
M test.pl
+1, -1 
1@@ -3,7 +3,7 @@ use warnings;
2 
3 # Verify that gen outputs the same thing as get
4 if (-t STDIN) {
5-	$ENV{'HASLODIR'} = '.';
6+	$ENV{HASLODIR} = '.';
7 	do {
8 		local $SIG{__DIE__} = sub {
9 			die if system q(echo y | ./haslo del tmp 2>/dev/null);