From 95cb771adad58d2b8dea859b82a65c40375e13db Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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