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