From 40b0cb55c9768ca340c3062e1c4322b987e0e05b Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 24 May 2002 13:12:36 +0000
Subject: log aussi le num�ro de version de zinc

---
 Perl/t/test-no-crash.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Perl/t')

diff --git a/Perl/t/test-no-crash.pl b/Perl/t/test-no-crash.pl
index 602c9c2..beae1bf 100644
--- a/Perl/t/test-no-crash.pl
+++ b/Perl/t/test-no-crash.pl
@@ -41,6 +41,8 @@ if ( open LOG, "no-crash.log" ) {
 
 open LOG,">no-crash.log";
 
+&log (0, "testing Zinc-perl Version=" . $Tk::Zinc::VERSION . "\n");
+
 autoflush LOG 1;
 
 my $mw = MainWindow->new();
@@ -290,7 +292,7 @@ $mw->Button(-text => "Test fields attributes",
 ### if $level is <= than opt_log (def = 0) then print log on the stdout
 ###  - a loglevel of -100 means an error to be loggued with %%% prefix
 ###  - a loglevel of -10 means an error in the test (data missing?)
-###  - a loglevel of 0 means an message to be usually printed (aznd logged in any case)
+###  - a loglevel of 0 means an message to be usually printed (and logged in any case)
 ###  - a loglevel greater than 1 is for trace only
 
 
-- 
cgit v1.1