--- a/uh_parser/RaptorCommon.pm	Tue Jun 22 10:59:48 2010 +0100
+++ b/uh_parser/RaptorCommon.pm	Mon Jun 28 11:59:20 2010 +0100
@@ -41,4 +41,39 @@
 	close(SUMMARY);
 }
 
+sub normalize_bldinf_path
+{
+	my ($bldinfref) = @_;
+	
+	${$bldinfref} = lc(${$bldinfref});
+	${$bldinfref} =~ s,^[A-Za-z]:,,;
+	${$bldinfref} =~ s,[\\],/,g;
+}
+
+sub get_package_subpath
+{
+	my ($bldinf) = @_;
+	
+	my $package = '';
+	
+	if ($bldinf =~ m,(unknown/unknown),)
+	{
+		$package = 'unknown/unknown';
+	}
+	elsif ($bldinf =~ m,^/+?([^/]*?/[^/]*?/[^/]*?)/,)
+	{
+		$package = $1;
+	}
+	#elsif ($bldinf =~ m,^/+?([^/]*?/[^/]*?)/,)
+	#{
+	#	$package = $1;
+	#}
+	#elsif ($bldinf =~ m,^/+?([^/]*?)/,)
+	#{
+	#	$package = $1;
+	#}
+	
+	return $package;
+}
+
 1;