From 95cb771adad58d2b8dea859b82a65c40375e13db Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 05:55:39 +0000
Subject: simplify

---
 perl-install/bootsplash.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/perl-install/bootsplash.pm b/perl-install/bootsplash.pm
index 46c84c72e..5054cdf05 100644
--- a/perl-install/bootsplash.pm
+++ b/perl-install/bootsplash.pm
@@ -94,9 +94,7 @@ sub set_logo_console {
 
 sub create_path {
     my ($file) = @_;
-    require File::Basename;
-    my $dir = File::Basename::dirname($file);
-    -d $dir or mkdir_p($dir);
+    mkdir_p(dirname($file));
 }
 
 sub theme_set_image_for_resolution {
-- 
cgit v1.2.1