1#! /usr/bin/perl
2
3# $OpenBSD: inject-temp2,v 1.2 2019/07/10 11:55:40 espie Exp $
4use strict;
5use warnings;
6use OpenBSD::Temp;
7
8package OpenBSD::Temp;
9use Wrapper;
10
11wrap('permanent_file',
12    sub {
13	my $original = shift;
14	$_[0] = "/nonexistent";
15	goto &$original;
16    });
171;
18