-
Notifications
You must be signed in to change notification settings - Fork 560
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Segfault on IRIX #744
Comments
From jarausch@numa1.igpm.rwth-aachen.deTrying to run (pure perl no .xs) perl -MDevel::ptkdb -e0 (version Devel-ptkdb-1.106 / Tk800.015)
Perl Info
|
From @gsarOn Wed, 20 Oct 1999 17:37:10 +0200, Helmut Jarausch wrote:
Here's a patch. Sarathy Inline Patch-----------------------------------8<-----------------------------------
Change 4417 by gsar@auger on 1999/10/20 23:45:03
avoid coredump on C<sort { my $c; return $a cmp $b } ...>
Affected files ...
... //depot/perl/op.c#204 edit
Differences ...
==== //depot/perl/op.c#204 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Wed Oct 20 16:45:08 1999
+++ perl/op.c Wed Oct 20 16:45:08 1999
@@ -6187,7 +6187,7 @@
break;
case OP_RETURN:
- if (o->op_next->op_type != OP_LEAVESUBLV) {
+ if (o->op_next && o->op_next->op_type != OP_LEAVESUBLV) {
o->op_seq = PL_op_seqmax++;
break;
}
End of Patch.
Change 4418 by gsar@auger on 1999/10/20 23:49:47
add test for change#4417
Affected files ...
... //depot/perl/t/op/sort.t#14 edit
Differences ...
==== //depot/perl/t/op/sort.t#14 (xtext) ====
Index: perl/t/op/sort.t
--- perl/t/op/sort.t.~1~ Wed Oct 20 16:49:52 1999
+++ perl/t/op/sort.t Wed Oct 20 16:49:52 1999
@@ -163,7 +163,10 @@
## exercise sort builtins... ($a <=> $b already tested)
@a = ( 5, 19, 1996, 255, 90 );
-@b = sort { $b <=> $a } @a;
+@b = sort {
+ my $dummy; # force blockness
+ return $b <=> $a
+} @a;
print ("@b" eq '1996 255 90 19 5' ? "ok 30\n" : "not ok 30\n");
print "# x = '@b'\n";
$x = join('', sort { $a cmp $b } @harry);
End of Patch. |
Migrated from rt.perl.org#1667 (status was 'resolved')
Searchable as RT1667$
The text was updated successfully, but these errors were encountered: