diff options
| author | Matthew Neleigh <matthew.neleigh@gmail.com> | 2021-11-28 18:12:14 -0500 |
|---|---|---|
| committer | Matthew Neleigh <matthew.neleigh@gmail.com> | 2021-11-28 18:12:14 -0500 |
| commit | 2e4a1d3ee498718e11b0dae091b52a71c657d88c (patch) | |
| tree | 8e74c6000b1254eaf516f5c9a9cd29bc671e8b55 /challenge-140 | |
| parent | 43e2d43f04514dcc18b2981c769adcbb2409f174 (diff) | |
| download | perlweeklychallenge-club-2e4a1d3ee498718e11b0dae091b52a71c657d88c.tar.gz perlweeklychallenge-club-2e4a1d3ee498718e11b0dae091b52a71c657d88c.tar.bz2 perlweeklychallenge-club-2e4a1d3ee498718e11b0dae091b52a71c657d88c.zip | |
modified: challenge-140/mattneleigh/perl/ch-1.pl
Diffstat (limited to 'challenge-140')
| -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')); |