From 2e4a1d3ee498718e11b0dae091b52a71c657d88c Mon Sep 17 00:00:00 2001
From: Matthew Neleigh <matthew.neleigh@gmail.com>
Date: Sun, 28 Nov 2021 18:12:14 -0500
Subject: 	modified:   challenge-140/mattneleigh/perl/ch-1.pl

---
 challenge-140/mattneleigh/perl/ch-1.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/challenge-140/mattneleigh/perl/ch-1.pl b/challenge-140/mattneleigh/perl/ch-1.pl
index 362439de69..c55b1d999e 100755
--- a/challenge-140/mattneleigh/perl/ch-1.pl
+++ b/challenge-140/mattneleigh/perl/ch-1.pl
@@ -141,6 +141,8 @@ sub add{
     my $self = shift();
     my $addend = shift();
 
+    # Make sure we're actually adding a
+    # binaryNumber object
     return(undef)
         unless(blessed($addend) && $addend->isa('binaryNumber'));
 
-- 
cgit