added debootstrap stuff

Signed-off-by: Manuel Traut <manut@mecka.net>

1 files changed, 32 insertions, 0 deletions

diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm
new file mode 100644
index 0000000..2e7cead
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm
@@ -0,0 +1,32 @@
+#!/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