security/p5-Crypt-RandPasswd/files/patch-lib-Crypt-RandPasswd.pm


1
2
3
4
5
6
7
8
9
10

--- lib/Crypt/RandPasswd.pm.orig	2011-08-19 17:39:52.000000000 -0400
+++ lib/Crypt/RandPasswd.pm	2011-08-19 17:40:47.000000000 -0400
@@ -1466,6 +1466,7 @@
 =cut
 
 sub random_chars_in_range($$$$) {
+     @_ > 4 and shift;
      my( $minlen, $maxlen, $lo_char, $hi_char ) = @_;
 
      $minlen <= $maxlen or die "minlen $minlen is greater than maxlen $maxlen";