From 713e1c24d769bde79a146239ae324ccf74b31929 Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Tue, 14 Dec 2004 00:02:26 +0000
Subject: - don't use File::* modules

---
 Packdrakeng.pm    | 25 +++++++++++++++++++++++--
 t/01packdrakeng.t | 16 +++++++++++++++-
 2 files changed, 38 insertions(+), 3 deletions(-)

diff --git a/Packdrakeng.pm b/Packdrakeng.pm
index 2e2b7a3..98956c6 100644
--- a/Packdrakeng.pm
+++ b/Packdrakeng.pm
@@ -19,14 +19,35 @@ package Packdrakeng;
 use strict;
 use warnings;
 use POSIX qw(O_WRONLY O_TRUNC O_CREAT O_RDONLY);
-use File::Path;
-use File::Temp qw(tempfile);
 
 (our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
 
 my  ($toc_header, $toc_footer) = 
     ('cz[0',      '0]cz');
 
+# File::Temp qw(tempfile) hack to not require it
+sub tempfile {
+    my ($count, $fname, $handle) = (0, undef, undef);
+    do {
+        ++$count > 10 and return (undef, undef);
+        $fname = sprintf("%s/packdrakeng.%s.%s",
+            $ENV{TMP} || '/tmp',
+            $$,
+            # Generating an random name
+            join("", map { $_=rand(51); $_ += $_ > 25 && $_ < 32 ? 91 : 65 ; chr($_) } (0 .. 4)));
+    } while ( ! sysopen($handle, $fname, O_WRONLY | O_APPEND | O_CREAT));
+    ($handle, $fname)
+}
+
+# File::Path hack to not require it
+sub mkpath {
+    my ($path) = @_;
+    $path =~ s:/*$::; # removing leading '/'
+    my $parent = substr($path, 0, length($path) - rindex($path, '/')+1);
+    -d $path and return 1;
+    -d $parent || mkpath($parent) or return 0;
+    mkdir($path);
+}
 
 sub _new {
     my ($class, %options) = @_;
diff --git a/t/01packdrakeng.t b/t/01packdrakeng.t
index fd0c3d6..6216dd5 100755
--- a/t/01packdrakeng.t
+++ b/t/01packdrakeng.t
@@ -3,7 +3,7 @@
 # $Id$
 
 use strict;
-use Test::More tests => 32;
+use Test::More tests => 37;
 use Digest::MD5;
 
 use_ok('Packdrakeng');
@@ -79,6 +79,20 @@ sub test_packing {
     $pack = undef;
 }
 
+# Testing simple additionnal function:
+clean_test_files();
+
+{
+my ($handle, $filename) = Packdrakeng::tempfile();
+ok($handle && $filename, "can create temp file");
+ok(-f $filename, "Temp file exist");
+ok(print($handle $coin), "can write into file");
+close($handle);
+unlink($filename);
+
+ok(Packdrakeng::mkpath('test/parent/child'), "can create dir like mkdir -p");
+ok(-d 'test/parent/child', "the dir really exist");
+}
 
 # Single test:
 {
-- 
cgit v1.2.1