On win32 I get the same, but this also disappears if I use Data::Dump or Data::Dump::Streamer instead of Data::Dumper
Running under the debugger, I get
Signal SEGV at (reeval 422)[pm.890409.pl:30] line 1
on the 10th iteration.
With Devel::Trace it happens after
>> (eval 334)[C:/perl/site/5.10.1/lib/MSWin32-x86-multi-thread/Class/M
+OP/Method/Generated.pm:53]:1: sub {exists $_[0]->{"actual_body"}}
>> C:/perl/site/5.10.1/lib/MSWin32-x86-multi-thread/Class/MOP/Method/W
+rapped.pm:48: return $around->{cache}->(@_);
>> accessor actual_body defined at C:/perl/site/5.10.1/lib/MooseX/Meth
+od/Signatures/Meta/Method.pm:101: >> accessor actual_body defined at
+C:/perl/site/5.10.1/lib/MooseX/Method/Signatures/Meta/Method.pm:101:
+>> C:/perl/site/5.10.1/lib/MooseX/Method/Signatures/Meta/Method.pm:15
+3: goto &{ $actual_body };
>> C:/perl/site/5.10.1/lib/MooseX/Method/Signatures/Meta/Method.pm:153
+: goto &{ $actual_body };
>> pm.890409.pl:34: method BUILD {
>> pm.890409.pl:35: use Data::Dumper; print 'AH ', Dump
+er \@_;
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:553: r
+eturn Data::Dumper->Dump([@_]);
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:190:
+ return &Dumpxs
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:64: my
+($c, $v, $n) = @_;
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:66: cr
+oak "Usage: PACKAGE->new(ARRAYREF, [ARRAYREF])"
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:68: $n
+ = [] unless (defined($n) && (ref($n) eq 'ARRAY'));
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:70: my
+($s) = {
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:97: if
+ ($Indent > 0) {
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:98:
+$s->{xpad} = " ";
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:99:
+$s->{sep} = "\n";
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:101: r
+eturn bless($s, $c);
>> generated method (unknown origin):30: >> (reeval 421)[pm.890409.pl:
+30]:1: >> (reeval 421)[pm.890409.pl:30]:2: >> (reeval 418)[pm.890409.
+pl:30]:2: >> C:/perl/site/5.10.1/lib/Regexp/Grammars.pm:556: my (
+$stack_ref, $key, $original_name, $value) = @_;
So I think it could be a bug in Dumpxs, or the perl regexp engine, or both.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|