From 8d5ca793118d34dc24e4790142811f56d16efa5e Mon Sep 17 00:00:00 2001 From: Gabor Szabo Date: Tue, 29 Nov 2011 15:27:47 +0200 Subject: [PATCH] remove unused max sub --- t/test.pm | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/t/test.pm b/t/test.pm index 59c25cb..6d81249 100644 --- a/t/test.pm +++ b/t/test.pm @@ -174,18 +174,6 @@ sub min { return $min; } -sub max { - croak "Can't max over 0 args!\n" - unless @_; - my $max = $_[0]; - for (@_[1..$#_]) { - $max = $_ - if $_ > $max; - } - - return $max; -} - # ------------------------------------- # PACKAGE CONSTANTS # ------------------------------------- -- 2.39.2