44 sub normalize_bldinf_path

    45 {

    46 	my ($bldinfref) = @_;

    47 	

    48 	${$bldinfref} = lc(${$bldinfref});

    49 	${$bldinfref} =~ s,^[A-Za-z]:,,;

    50 	${$bldinfref} =~ s,[\\],/,g;

    51 }

    52 

    53 sub get_package_subpath

    54 {

    55 	my ($bldinf) = @_;

    56 	

    57 	my $package = '';

    58 	

    59 	if ($bldinf =~ m,(unknown/unknown),)

    60 	{

    61 		$package = 'unknown/unknown';

    62 	}

    63 	elsif ($bldinf =~ m,^/+?([^/]*?/[^/]*?/[^/]*?)/,)

    64 	{

    65 		$package = $1;

    66 	}

    67 	#elsif ($bldinf =~ m,^/+?([^/]*?/[^/]*?)/,)

    68 	#{

    69 	#	$package = $1;

    70 	#}

    71 	#elsif ($bldinf =~ m,^/+?([^/]*?)/,)

    72 	#{

    73 	#	$package = $1;

    74 	#}

    75 	

    76 	return $package;

    77 }

    78