From 6cff9ea43f861c345db9416b2c32119018a170d8 Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <guillomovitch@mandriva.org>
Date: Sun, 10 Feb 2008 14:33:31 +0000
Subject: use File::Basename module for dirname() and basename() functions

---
 compress_files | 17 +----------------
 1 file changed, 1 insertion(+), 16 deletions(-)

(limited to 'compress_files')

diff --git a/compress_files b/compress_files
index 24798be..ecc0d75 100755
--- a/compress_files
+++ b/compress_files
@@ -6,22 +6,7 @@ use strict;
 use warnings;
 use Cwd;
 use File::Find;
-
-################################################################################
-# Returns the basename of the argument passed to it.
-sub basename {
-    my $fn = shift;
-    $fn =~ s!^.*/(.*?)$!$1!;
-    return $fn;
-}
-
-################################################################################
-# Returns the directory name of the argument passed to it.
-sub dirname {
-    my $fn = shift;
-    $fn =~ s!^(.*)/.*?$!$1!;
-    return $fn;
-}
+use File::Basename;
 
 ################################################################################
 # Run a command that may have a huge number of arguments, like xargs does.
-- 
cgit v1.2.1