blob: 493e59e0ddb04082bba187a7af3fe1600adaecf0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#! /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;
|
