use Cwd qw/abs_path/;
use File::Spec;
use strict;

my $ccmwaid = $^O eq "MSWin32" ? "_ccmwaid.inf" : ".ccmwaid.inf";

# NOTE: CM Synergy baselib/src/base/wa_ext.ac:get_path_info()
# tries to find the _topmost_ ccmwaid file instead (and returns the
# relative path down to $dir from there, too)

my $dir = shift @ARGV;

my ($vol, $path) = File::Spec->splitpath(abs_path($dir), 1);
my @dirs = File::Spec->splitdir($path);

while (@dirs)
{
    my $try = File::Spec->catpath($vol, File::Spec->catdir(@dirs), $ccmwaid);
    if (-e $try)
    {
	print "FOUND $try\n";
	exit;
    }
    pop @dirs;
}
print "NO $ccmwaid FOUND\n";