diff options
| -rwxr-xr-x | challenge-140/mattneleigh/perl/ch-1.pl | 2 |
1 files changed, 2 insertions, 0 deletions
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')); |