commit 63762c8
Emilia Smólska
·
2026-08-02 01:09:19 +0000 UTC
parent 3915572
don't ask to delete file
1 files changed,
+2,
-2
M
test.pl
M
test.pl
+2,
-2
1@@ -6,7 +6,7 @@ if (-t STDIN) {
2 $ENV{'HASLODIR'} = '.';
3 do {
4 local $SIG{__DIE__} = sub {
5- die if system qw(haslo del tmp);
6+ die if system q(echo y | haslo del tmp 2>/dev/null);
7 };
8 my $gen = qx(./haslo gen tmp);
9 die if $?;
10@@ -14,7 +14,7 @@ if (-t STDIN) {
11 die if $?;
12 die "$gen ne $get" if $gen ne $get;
13 };
14- die if system qw(haslo del tmp);
15+ die if system q(echo y | haslo del tmp 2>/dev/null);
16 } else {
17 print "stdin not a terminal, skipping test\n";
18 }