Hi Max
On 18/06/12 03:26, Max Maischein via RT wrote:
Show quoted text> Sun Jun 17 13:26:39 2012: Request 77869 was acted upon.
> Transaction: Ticket created by CORION
> Queue: GraphViz2
> Subject: GraphViz2::Parse::Regexp fails on Windows
> Broken in: 2.02
> Severity: Important
> Owner: Nobody
> Requestors: corion@cpan.org
> Status: new
> Ticket<URL:
https://rt.cpan.org/Ticket/Display.html?id=77869>
>
>
> The command line that GraphViz2::Parse::Regexp constructs is invalid on
> Windows and not tested for.
>
> I didn't attach a test file, as I couldn't figure out your test setup.
> The change necessary in the code is simple - eliminate the double
> quotes, which are used by the Windows toolset for argument quoting.
> Also, my change adds a warning when the system call fails. You might or
> might not want to connect this to your logging framework instead.
>
> my($stdout, $stderr) = capture{system($^X, '-e', qq|use re
> 'debug';qr/$regexp/;|) == 0 or warn "$? / $^E"};
Thanx for the report. I'm just build V 2.03 now for release to CPAN.
As for testing, you could do (mutatis mutandis for Windows):
1)
Show quoted textshell> perl Build.PL
shell> ./Build
shell> ./Build test
Or, more easily:
2)
Show quoted textshell> copy html/parse.regexp.svg .
shell> perl scripts/parse.regexp.pl
This defaults to SVG format, and defaults to outputting to
html/parse.regexp.svg
Show quoted textshell> diff parse.regexp.svg html/parse.regexp.svg
Hopefully the 2 files are almost the same. I say almost because the
underlying Graphviz has a frustrating habit of 'adjusting' the precise
co-ords of plot points from run to run. So, best view the 2 images in a
browser I guess.
Cheers
--
Ron Savage
http://savage.net.au/
Ph: 0421 920 622