blob: 0fad2b1e871ea6de25024feeea1915348bc2a0f9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#! /usr/bin/perl
# $OpenBSD: inject-temp2,v 1.2 2019/07/10 11:55:40 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;
|
