sub oldhash()

in ports/qca/mk-ca-bundle.pl [255:264]

• 10 lines of code
• 4 McCabe index (conditional complexity)

sub oldhash {
  my $hash = "";
  open(C, "<$_[0]") || return 0;
  while(<C>) {
    chomp;
    if($_ =~ /^\#\# SHA256: (.*)/) {
      $hash = $1;
      last;
    }
  }