| Subject: | patches regarding Ditto.pm and output.t |
Dear Andy,
As you know, my cpan-testers report #3963090 shows that output.t failed under Win32.
My patches regarding Ditto.pm and output.t are attached. Could you apply these patches?
Best regards,
Taro Nishino
| Subject: | Ditto.diff |
--- Ditto.pm.orig Tue May 26 10:26:20 2009
+++ Ditto.pm Tue May 26 10:49:56 2009
@@ -46,6 +46,7 @@
use warnings;
use strict;
+use File::Spec;
sub import {
my $class = shift;
@@ -86,6 +87,7 @@
sub _logbit {
my $self = shift;
my ( $pkg, $file, $line ) = $self->_caller();
+ $file = File::Spec->canonpath($file);
return "[$pkg, $file, $line] ";
}
| Subject: | output.diff |
--- output.t.orig Tue May 26 10:10:29 2009
+++ output.t Tue May 26 10:45:30 2009
@@ -11,10 +11,10 @@
\my $in, \my $out, \my $err
or die "Failed: $?";
-is $out, "[main, t/myprog.pl, 9] This is regular text\n"
- . "[MyPrinter, t/lib/MyPrinter.pm, 7] Hello, World\n", 'STDOUT';
-is $err, "[main, t/myprog.pl, 10] This is a warning\n"
- . "[MyPrinter, t/lib/MyPrinter.pm, 8] Whappen?\n", 'STDERR';
+is $out, "[main, " . File::Spec->canonpath("t/myprog.pl") . ", 9] This is regular text\n"
+ . "[MyPrinter, " . File::Spec->canonpath("t/lib/MyPrinter.pm") . ", 7] Hello, World\n", 'STDOUT';
+is $err, "[main, " . File::Spec->canonpath("t/myprog.pl") . ", 10] This is a warning\n"
+ . "[MyPrinter, " . File::Spec->canonpath("t/lib/MyPrinter.pm") . ", 8] Whappen?\n", 'STDERR';
# vim:ts=2:sw=2:et:ft=perl