diff options
| author | lecoanet | 2002-05-17 07:19:53 +0000 |
|---|---|---|
| committer | lecoanet | 2002-05-17 07:19:53 +0000 |
| commit | a0fdce4834e4dc5cd44542fb03d83d5b2ba72df9 (patch) | |
| tree | 043c1395974b604b6538cca1faa13542a8ad9c8e /Perl/t | |
| parent | b9764f57afa65ac74f2b48d70bf1a5a2d68f7bdf (diff) | |
| download | tkzinc-a0fdce4834e4dc5cd44542fb03d83d5b2ba72df9.zip tkzinc-a0fdce4834e4dc5cd44542fb03d83d5b2ba72df9.tar.gz tkzinc-a0fdce4834e4dc5cd44542fb03d83d5b2ba72df9.tar.bz2 tkzinc-a0fdce4834e4dc5cd44542fb03d83d5b2ba72df9.tar.xz | |
Correction suite � la modif de la commande find.
Diffstat (limited to 'Perl/t')
| -rw-r--r-- | Perl/t/test-no-crash.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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); } |