Thu Mar 14 10:08:55 UTC 2013 Marcel Smit <msmit@remedy.nl>

        * bin/fuzz.pl:
          Checking the last part of the given @file entry, instead of
          the filename only.

1 files changed, 3 insertions, 5 deletions

diff --git a/ACE/bin/fuzz.pl b/ACE/bin/fuzz.pl
index f916e9263c0..17caee09361 100755
--- a/ACE/bin/fuzz.pl
+++ b/ACE/bin/fuzz.pl
@@ -1511,11 +1511,9 @@ sub check_for_mismatched_filename ()
             while (<FILE>) {
                 if (m/\@file\s*([^\s]+)/){
                     # $file includes complete path, $1 is the name after
-                    # @file. We must strip the complete path from $file.
-                    # we do that using the basename function from
-                    # File::BaseName
-                    $filename = basename($file,"");
-                    if (!($filename eq $1)){
+                    # @file. We must check whether the last part of $file
+                    # is equal to $1
+                    if ($file !~ /$1$/) {
                         print_error ("$file:$.: \@file mismatch in $file, found $1");
                     }
                 }