summaryrefslogtreecommitdiff
path: root/beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm
diff options
context:
space:
mode:
authorManuel Traut <manut@mecka.net>2011-07-18 14:00:12 +0200
committerManuel Traut <manut@mecka.net>2011-07-18 14:00:12 +0200
commited006a8eb44831189e152826c692330d0a0cfe3b (patch)
tree66996c44c68a8787e4a35a85aea683975f307767 /beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm
parent4493e8f707e62b9867d9cfd40205115140e7c993 (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.pm32
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