tests/check_headers_and_includes: Use File::Basename
git-svn-id: svn://svn.valgrind.org/valgrind/trunk@13714 a5019735-40e9-0310-863c-91ae7b9d1cf9
diff --git a/tests/check_headers_and_includes b/tests/check_headers_and_includes
index 4a75ce8..41b3697 100755
--- a/tests/check_headers_and_includes
+++ b/tests/check_headers_and_includes
@@ -14,9 +14,10 @@
use strict;
use warnings;
+use File::Basename;
use Getopt::Long;
-my $this_script = "check_headers_and_includes";
+my $this_script = basename($0);
# The list of top-level directories is divided into three sets:
#
@@ -147,18 +148,6 @@
}
#---------------------------------------------------------------------
-# Given a path name strip leading directories.
-#---------------------------------------------------------------------
-sub basename {
- my ($path_name) = @_;
- my $file = $path_name;
-
- $file =~ s/^.*\///;
-
- return $file;
-}
-
-#---------------------------------------------------------------------
# Return 1, if file is located in <valgrind>/include
#---------------------------------------------------------------------
sub is_coregrind_export_header {