X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb-perl/blobdiff_plain/bdf77f6dbd9205c70639fb682059e4ba0761c767..bfdf19cbde6d9f5cdb740d258fcc439a4a412ab0:/Catacomb/MP.pm

diff --git a/Catacomb/MP.pm b/Catacomb/MP.pm
index 0341626..9a43807 100644
--- a/Catacomb/MP.pm
+++ b/Catacomb/MP.pm
@@ -33,12 +33,12 @@ use Catacomb::Rand;
 use Catacomb::Field;
 use Carp;
 
-sub mp { new(Catacomb::MP, $_[0]); }
+sub mp { new(Catacomb::MP, @_); }
 sub mp_loadb { loadb(Catacomb::MP, $_[0]); }
 sub mp_loadl { loadl(Catacomb::MP, $_[0]); }
 sub mp_loadb2c { loadb2c(Catacomb::MP, $_[0]); }
 sub mp_loadl2c { loadl2c(Catacomb::MP, $_[0]); }
-sub mp_fromstring { fromstring(Catacomb::MP, $_[0]); }
+sub mp_fromstring { fromstring(Catacomb::MP, @_); }
 
 sub mod { (&div($_[0], $_[1]))[1]; }