Slash Boxes
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

Ovid (2709)

  (email not shown publicly)
AOL IM: ovidperl (Add Buddy, Send Message)

Stuff with the Perl Foundation. A couple of patches in the Perl core. A few CPAN modules. That about sums it up.

Journal of Ovid (2709)

Wednesday January 17, 2007
07:15 AM

TAPx::Parser on Windows (via Andy Armstrong)

[ #32179 ]

Andy Armstrong has set up a TAPx::Parser subversion repository on one of his servers and he and I are now collaborating to get it working on Windows. Andy's already fixed one Windows bug and I've committed code to make colored test output the default unless running on Windows or not running in a terminal.

Andy's going to look into providing anonymous read-only access so that people can play with 'bleed' rather than me hastily uploading a new development version every few days.

Not only does this mean that someone familiar with Windows can look at the Windows issues, but it also means that I won't have to buy a Windows laptop (though I might do it anyway. Someone's contacted me about an inexpensive on).

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.
  • I just had a look and all the tests are passing for me on windows.

    If you drop the following into it should enable color display on windows (assuming Win32::Console::ANSI is installed).

    use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );

    my $NO_COLOR;

    BEGIN {
            $NO_COLOR = 0;
            if( IS_WIN32 ) {
                    eval 'use Win32::Console::ANSI;use Term::ANSIColor';
    • That would certainly be a nice bonus for Windows users. Are you sure that $^O sometimes returns MSWin32? I thought it was always Win32. If this is documented somewhere, I'd love to read that.

      • I'm not really sure. Tbh I just copied and pasted it from else where ( and

        My activestate perl does.

        G:\Documents and Settings\link>perl -e"print $^O . \"\n\";"

        As for docs , perldoc perlvar says

        In Windows platforms, $^O is not very helpful: since it is always MSWin32 , it doesn't tell the difference between 95/98/ME/NT/2000/XP/CE/.NET. Use Win32::GetOSName() or Win32::GetOSVersion() (see Win32 and perlport) to distinguish between the variants.
        • Thanks. By the way, your one-liner can be simplified with the 'l' (el) switch which forces a newline after every print:

          perl -le "print $^O"

          That's very handy when I'm writing quick utilities.