home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / perl5 / Debconf / TmpFile.pm < prev   
Encoding:
Perl POD Document  |  2006-07-24  |  410 b   |  33 lines
  1. #!/usr/bin/perl
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::TmpFile;
  6. use strict;
  7. use IO::File;
  8. use Fcntl;
  9.  
  10.  
  11. my $filename;
  12.  
  13. sub open {
  14.     my $fh; # will be autovivified
  15.     my $ext=shift || '';
  16.     do { $filename=POSIX::tmpnam().$ext }
  17.     until sysopen($fh, $filename, O_WRONLY|O_TRUNC|O_CREAT|O_EXCL, 0600);
  18.     return $fh;
  19. }
  20.  
  21.  
  22. sub filename {
  23.     return $filename;
  24. }
  25.  
  26.  
  27. sub cleanup {
  28.     unlink $filename;
  29. }
  30.  
  31.  
  32. 1
  33.