[tcltk-perl] t/info.t on Win32

[Vadim K. <va...@ar...>]

Dear Jeff,

I've noticed you made t/info.t to pass on Win32.

However I did it too, but from different side:

--- D:\Personal\cvsroot\Tcl\t\info.t Thu Apr 15 15:01:07 2004
+++ D:\Personal\perl-CPAN\Tcl\t\info.t Sat Apr 17 00:44:19 2004
@@ -7,11 +7,12 @@

 use Tcl;
 use Sys::Hostname qw(hostname);
+use File::Spec::Functions;

 my $tcl = Tcl->new;

 ok($tcl);
-ok($tcl->Eval("info nameofexecutable"), $^X);
+ok(canonpath($tcl->Eval("info nameofexecutable")), canonpath($^X));
 ok($tcl->Eval("info hostname"), hostname);

 my $tclversion = $tcl->Eval("info tclversion");


=====
Do you mind if I'll insert mine, because it does not  rely on $^O  so will
probably pass cleanly on other weird file systems?

Best regards,
Vadim.