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.

2 files changed, 9 insertions, 5 deletions

diff --git a/ACE/ChangeLog b/ACE/ChangeLog
index f618c5b77d6..a810642c098 100644
--- a/ACE/ChangeLog
+++ b/ACE/ChangeLog
@@ -1,3 +1,9 @@
+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.
+
 Thu Mar 14 08:38:57 UTC 2013  Johnny Willemsen  <jwillemsen@remedy.nl>
 
         * ChangeLog:
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");
                     }
                 }