Fixes Issue #133

Also fixes a bug with DOS paths when looking for the aTRAM/lib path.
juliema · Apr 8, 2014 · 0d85a03 · 0d85a03
1 parent 27e2d8a
commit 0d85a03
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/Configuration.pm b/lib/Configuration.pm
@@ -34,10 +34,11 @@ sub initialize {
 	}
 
 	# find the lib path in @INC:
-	my $libpath = File::Spec->catfile("aTRAM", "lib");
 	foreach my $path (@INC) {
 		$path = realpath ($path);
-		if ($path =~ /$libpath/) {
+		$path = File::Spec->canonpath($path);
+		$path =~ s/\\/\//g;
+		if ($path =~ /TRAM.*lib/) {
 			$config_file = File::Spec->catfile($path, "config.txt");
 			$assembler_dir = File::Spec->catdir($path, "Assembler");
 			last;