fix test after method name change

diff --git a/regress/usr.sbin/pkg_add/inject-badsum b/regress/usr.sbin/pkg_add/inject-badsum
index c97e986..2403b4b 100644 (file)
--- a/regress/usr.sbin/pkg_add/inject-badsum
+++ b/regress/usr.sbin/pkg_add/inject-badsum
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 
-# $OpenBSD: inject-badsum,v 1.1 2019/08/02 14:57:53 espie Exp $
+# $OpenBSD: inject-badsum,v 1.2 2023/06/14 07:52:37 espie Exp $
 use strict;
 use warnings;
 
@@ -14,7 +14,7 @@ wrap('digest_file',
        my $original = shift;
        if ($_[1] =~ m,/a$,) {
                my $self = shift;
-               my $d = $self->algo;
+               my $d = $self->_algo;
                $d->addfile("/dev/null");
                return $d->digest;
        } else {