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