package UtilsC
@ISA = qw()

sub IsSameFile
my ($f1, $f2) = @_;
return $s;
return IsSameFile_C($f1, $f2);
return -1;
return -1;
return 0;
return c;