# New Ticket Created by Colin Kuskie
# Please include the string: [perl #44209]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=44209 >
The PIR code that defines 'e' was missing a return statement.
The attached patch fixes that, and adds the pi.t and e.t spec
tests from pugs for testing. There is a separate bug dealing
with e and pi as barewords in math.
--Colin
Index: languages/perl6/t/fetchspec
===================================================================
--- languages/perl6/t/fetchspec (revision 20273)
+++ languages/perl6/t/fetchspec (working copy)
@@ -28,6 +28,8 @@
t/operators/eq.t
t/operators/relational.t
t/builtins/math/trig.t
+ t/builtins/math/e.t
+ t/builtins/math/pi.t
);
foreach my $tfile (@spectests) {
Index: languages/perl6/src/builtins/math.pir
===================================================================
--- languages/perl6/src/builtins/math.pir (revision 20273)
+++ languages/perl6/src/builtins/math.pir (working copy)
@@ -206,6 +206,7 @@
.sub 'e'
$N0 = exp 1
+ .return ($N0)
.end
