From dfd25b552fa6fbe52628766665658249d3dbdb07 Mon Sep 17 00:00:00 2001
From: nwf <nwf@cs.jhu.edu>
Date: Wed, 27 Aug 2008 02:38:20 -0400
Subject: [PATCH] Increase paranoia of MasterCoder's ldecode

darcs-hash:20080827063820-4d648-00864728032f17885f07644b235bd8dcc5359ace.gz
---
 MasterCoder.pm | 2 ++
 1 file changed, 2 insertions(+)

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);
-- 
2.50.1