diff options
| author | Manuel Traut <manut@mecka.net> | 2011-07-18 14:00:12 +0200 |
|---|---|---|
| committer | Manuel Traut <manut@mecka.net> | 2011-07-18 14:00:12 +0200 |
| commit | ed006a8eb44831189e152826c692330d0a0cfe3b (patch) | |
| tree | 66996c44c68a8787e4a35a85aea683975f307767 /beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm | |
| parent | 4493e8f707e62b9867d9cfd40205115140e7c993 (diff) | |
delete beagle-dir
Signed-off-by: Manuel Traut <manut@mecka.net>
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm')
| -rw-r--r-- | beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm deleted file mode 100644 index 2e7cead..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm +++ /dev/null @@ -1,32 +0,0 @@ -#!/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 |
