- 5.0.3

- fix mkpath

3 files changed, 9 insertions, 5 deletions

diff --git a/Makefile.PL b/Makefile.PL
index 14691c0..8c0e5da 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -3,7 +3,7 @@
 # use 5.008;
 use ExtUtils::MakeMaker;
 
-my $rpmtools_version = '5.0.2';
+my $rpmtools_version = '5.0.3';
 
 sub MY::postamble {
     <<MAKEMAKEFILE;
diff --git a/Packdrakeng.pm b/Packdrakeng.pm
index 98956c6..b45e04a 100644
--- a/Packdrakeng.pm
+++ b/Packdrakeng.pm
@@ -18,7 +18,7 @@ package Packdrakeng;
 
 use strict;
 use warnings;
-use POSIX qw(O_WRONLY O_TRUNC O_CREAT O_RDONLY);
+use POSIX qw(O_WRONLY O_TRUNC O_CREAT O_RDONLY O_APPEND);
 
 (our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
 
@@ -43,10 +43,10 @@ sub tempfile {
 sub mkpath {
     my ($path) = @_;
     $path =~ s:/*$::; # removing leading '/'
-    my $parent = substr($path, 0, length($path) - rindex($path, '/')+1);
+    my $parent = substr($path, 0, rindex($path, '/'));
     -d $path and return 1;
     -d $parent || mkpath($parent) or return 0;
-    mkdir($path);
+    mkdir($path)
 }
 
 sub _new {
diff --git a/rpmtools.spec b/rpmtools.spec
index 65279cb..5b76dda 100644
--- a/rpmtools.spec
+++ b/rpmtools.spec
@@ -2,7 +2,7 @@
 %define release 1mdk
 
 # do not modify here, see Makefile in the CVS
-%define version 5.0.2
+%define version 5.0.3
 
 %define group %(perl -e 'printf "%%s\\n", "%_vendor" =~ /mandrake/i ? "System/Configuration/Packaging" : "System Environment/Base"')
 %define rpm_version %(rpm -q --queryformat '%{VERSION}-%{RELEASE}' rpm)
@@ -73,6 +73,10 @@ is fully compatible with old packdrake.
 %{_mandir}/*/*
 
 %changelog
+* Mon Dec 13 2004 Olivier Thauvin <thauvin@aerov.jussieu.fr> 5.0.3-1mdk
+- don't use File::* modules (light for gi)
+- conflict rpmtools <= 5.0.0 (split package)
+
 * Mon Dec 13 2004 Olivier Thauvin <thauvin@aerov.jussieu.fr> 5.0.2-1mdk
 - add missing Packdrake/zlib.pm