debian/patches/0006-digest-sha.patch

   1 Author: Salvatore Bonaccorso <carnil@debian.org>
   2 Description: use Digest::SHA for utils/sha1pass (Closes: #625812).
   3
   4 diff -Naurp syslinux.orig/utils/sha1pass syslinux/utils/sha1pass
   5 --- syslinux.orig/utils/sha1pass
   6 +++ syslinux/utils/sha1pass
   7 @@ -1,7 +1,7 @@
   8  #!/usr/bin/perl
   9
  10  use bytes;
  11 -use Digest::SHA1;
  12 +use Digest::SHA;
  13  use MIME::Base64;
  14
  15  sub random_bytes($) {
  16 @@ -29,6 +29,6 @@ sub random_bytes($) {
  17  unless (defined($salt)) {
  18      $salt = MIME::Base64::encode(random_bytes(6), '');
  19  }
  20 -$pass = Digest::SHA1::sha1_base64($salt, $pass);
  21 +$pass = Digest::SHA::sha1_base64($salt, $pass);
  22
  23  print '$4$', $salt, '$', $pass, "\$\n";