Front page | perl.perl5.porters |
Postings from July 2013
On Mon Jun 24 19:20:07 2013, andreas.koenig.7os6VVqR@franz.ak.mind.de wrote:
> git bisect
> ----------
> 13b0f67d12a6400f01bbc27945223ca68a12a7ef is the first bad commit
> commit 13b0f67d12a6400f01bbc27945223ca68a12a7ef
> Author: David Mitchell <davem@iabyn.com>
> Date: Wed May 22 16:38:29 2013 +0100
>
> re-enable Copy-on-Write by default.
>
> sample fail report
> ------------------
> http://www.cpantesters.org/cpan/report/f1a6bdd2-dbbc-11e2-9c4f-
> ca11697f9654
>
> I have already communicated with rocky that this is the difference
> between expected and got:
>
> % diff -au t/data/opt-e.{right,got}
> --- t/data/opt-e.right 2013-06-23 06:23:12.000000000 +0200
> +++ t/data/opt-e.got 2013-06-24 07:39:14.142577837 +0200
> @@ -1,6 +1,6 @@
> -- (tempfile.pl:1)
> -no warnings "once";$x=1; $y=2
> +se Devel::Trepan;no warnings "once";$x=1; $y=2
> -- (tempfile.pl:1)
> -no warnings "once";$x=1; $y=2
> +se Devel::Trepan;no warnings "once";$x=1; $y=2
> Debugged program terminated. Use 'q' to quit or 'R' to restart.
> trepan.pl: That's all, folks...
>
> There are binary nulls involved too.
If I modify readlines in LineCache.pm like this:
sub readlines($)
{
my $path = shift;
if (-r $path) {
warn $path;
system "cat \Q$path";
my $fh;
open($fh, '<', $path);
seek $fh, 0, 0;
my @lines = <$fh>;
close $fh;
return @lines;
} else {
return undef;
}
}
I get this output (truncated).
$ /usr/local/bin/perl5.19.2 bin/trepan.pl --no-highlight --testing
t/data/opt-e.cmd -e '$x=1; $y=2;'
/private/var/folders/48/6ysnwsz12ync5qd2xyc3p2c00000gq/T/lMjR.pl at
/Users/sprout/.cpan/build/Devel-Trepan-0.50-RgNr0o/lib/Devel/Trepan/DB/LineCache.pm
line 1042.
se Devel::Trepan;$x=1; $y=2;
This shows that the temporary file (lMjR.pl) is being written with that
mangled string.
Which part of the code writes that file?
--
Father Chrysostomos
---
via perlbug: queue: perl5 status: new
https://rt.perl.org:443/rt3/Ticket/Display.html?id=118627
Thread Previous
|
Thread Next