One Hat Cyber Team

Your IP: 216.73.216.80
Server IP: 13.127.59.50
Server: Linux ip-172-31-46-210 5.15.0-1033-aws #37~20.04.1-Ubuntu SMP Fri Mar 17 11:39:30 UTC 2023 x86_64
Server Software: Apache/2.4.41 (Ubuntu)
PHP Version: 7.4.3-4ubuntu2.29
Buat File | Buat Folder

Dir : ~/snap/core/17210/usr/share/perl5/Debconf/

View File Name : TmpFile.pm

#!/usr/bin/perl
# This file was preprocessed, do not edit!


package Debconf::TmpFile;
use strict;
use IO::File;
use Fcntl;


my $filename;

sub open {
	my $fh; # will be autovivified
	my $ext=shift || '';
	do { $filename=POSIX::tmpnam().$ext }
	until sysopen($fh, $filename, O_WRONLY|O_TRUNC|O_CREAT|O_EXCL, 0600);
	return $fh;
}


sub filename {
	return $filename;
}


sub cleanup {
	unlink $filename;
}


1