Increase paranoia of MasterCoder's ldecode

darcs-hash:20080827063820-4d648-00864728032f17885f07644b235bd8dcc5359ace.gz

diff --git a/MasterCoder.pm b/MasterCoder.pm
index 51f987b9c1d00ce977aeaa397952e60c0e12053b..de57c0997f21a5feb879f652244a0e48ec495308 100644 (file)
--- a/MasterCoder.pm
+++ b/MasterCoder.pm
@@ -98,6 +98,8 @@ sub ldecode($$) {
 
     die "Can't decode numbers that big!" if $reallen >= $ccc - 1;
 
+    return (undef, undef) if length $in < $reallen;
+
     my $encval = substr($in, 1, $reallen);
 
     my $realval = $self->tdecode($encval);