Update for new keydata interface.

[catacomb-perl] / Catacomb / MP.pm

diff --git a/Catacomb/MP.pm b/Catacomb/MP.pm
index 0341626..9a43807 100644 (file)
--- 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]; }