-#!/usr/bin/perl
+#!perl
# test for bug #34584: hang in exp(1/2)
my $result = Math::BigRat->new('1/2')->bexp();
-is("$result", "9535900335500879457687887524133067574481/5783815921445270815783609372070483523265",
+is("$result", "824360635350064073424325393907081785827/500000000000000000000000000000000000000",
"exp(1/2) worked");
##############################################################################