From: nwf <nwf@cs.jhu.edu>
Date: Wed, 27 Aug 2008 06:38:20 +0000 (-0400)
Subject: Increase paranoia of MasterCoder's ldecode
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=dfd25b552fa6fbe52628766665658249d3dbdb07;p=instirc

Increase paranoia of MasterCoder's ldecode

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

diff --git a/MasterCoder.pm b/MasterCoder.pm
index 51f987b..de57c09 100644
--- 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);