|
From: <sv...@va...> - 2013-11-17 10:06:21
|
Author: bart
Date: Sun Nov 17 10:06:09 2013
New Revision: 13714
Log:
tests/check_headers_and_includes: Use File::Basename
Modified:
trunk/tests/check_headers_and_includes
Modified: trunk/tests/check_headers_and_includes
==============================================================================
--- trunk/tests/check_headers_and_includes (original)
+++ trunk/tests/check_headers_and_includes Sun Nov 17 10:06:09 2013
@@ -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 {
|