remove unused max sub

[term-progressbar.git] / t / test.pm

diff --git a/t/test.pm b/t/test.pm
index 59c25cbfc52d1b6a816b78c7fe6e39b3c35cf916..6d812497c2443e8e3134ec13939a29687bce28a4 100644 (file)
--- 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
 # -------------------------------------