#!/usr/bin/perl -w 
use strict;  
use warnings; 
#use File::Find::Rule;
use File::Find;
use Cwd;
use File::Basename;

my $cwd = getcwd();
my @folders;
my %seen;
my (@folder_mk,$folder,$mk,$folder_present,$folder_not_present);
my $CASES;
my $file_name="Case_sensitivities.txt";

    if ( -e $file_name )
       {
          #print "IN $file_name\n";
          #chmod 0777, $file_name or die $!;
          unlink $file_name or die "Unable to unlink $file_name: $!";
       }

open(my $FOLDERS, '+>', "dirs.log") or die $!;

find(sub {
	push @folders, "$_\n" if -d $File::Find::name && !$seen{$_}++;
    print $FOLDERS "$_\n" if -d $File::Find::name && !$seen{$_}++;
}, $cwd);

#print "\nHeader array:@headers\n";
#my @headers = File::Find::Rule->file->name('*.h')->in($cwd);
#my $header_file;

foreach $folder (@folders)
{
	next if $folder =~ /^\.+$|inc|src|arm|le-v7|config/;

	@folder_mk=`find.exe . -name "*.mk" -print0 | xargs -0 grep -i $folder`;

			 foreach $mk(@folder_mk)
			 {
				print "\nFOLDER:$folder\n";#prints FileMuxInternaldefs
				print "\nMK:$mk\n";#prints ./AACBaseFileLib/common.mk:  $(PROJECT_ROOT)/../FilemuxInternalDefs/inc  \
				if ($mk =~ /\Q$folder\E/i)  #this match failing for the give input
					{
						  print "\nIN\n";#never enters the loop
		  if ($mk !~ /\Q$folder\E/)  #this match failing for the give input
									 {
										print "CASE-SENSITIVE:$mk\n";
							
									 }
				   }   
			 }	   
	$mk=" ";
}