xref: /openbsd-src/regress/usr.sbin/pkg_add/inject-temp3 (revision 7e698491ff2ff22fb6a87b83c918a6ff577412fc)

#! /usr/bin/perl

# $OpenBSD: inject-temp3,v 1.1 2019/07/10 07:21:47 espie Exp $
use strict;
use warnings;
use OpenBSD::Temp;

package OpenBSD::Temp;
use Wrapper;

wrap('permanent_file',
    sub {
	my $original = shift;
	$_[0] = "/nonexistent";
	goto &$original;
    });
1;