From a0fdce4834e4dc5cd44542fb03d83d5b2ba72df9 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 17 May 2002 07:19:53 +0000
Subject: Correction suite � la modif de la commande find.

---
 Perl/t/test-no-crash.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Perl/t')

diff --git a/Perl/t/test-no-crash.pl b/Perl/t/test-no-crash.pl
index 561777f..602c9c2 100644
--- a/Perl/t/test-no-crash.pl
+++ b/Perl/t/test-no-crash.pl
@@ -78,7 +78,7 @@ my ($image1, $image2, $image3, $image4);
 
 sub creating_items {
     # first removing all remaining items
-    foreach my $item (&test_eval (1, "find", 'all')) {
+    foreach my $item (&test_eval (1, 'find', 'withtag', 'all')) {
 	&test_eval (1, "remove", $item);
     }
 
-- 
cgit v1.1