more changes trying to track down this END block issue

Author: ex-nerd

trunk/gui_cli.pm

@@ -94,6 +94,7 @@ package gui_cli;
 	# User-specified path?
 		if ($Args{outfile} && $Args{outfile} =~ /\w/) {
 			($savepath, $outfile) = $Args{outfile} =~ /^(?:(.*?)\/)?([^\/]+)$/;
+			$savepath ||= '.';
 		}
 	# Otherwise, use the default
 		else {

trunk/nuv_utils.pm

@@ -220,8 +220,9 @@ package nuv_utils;
 	}
 
 	sub Quit {
-	# Print a nice goodbye message, and leave
-		print "\nThanks for using nuvexport!\n\n";
+	# If this is the main script, print a nice goodbye message
+		print "\nThanks for using nuvexport!\n\n" unless ($is_child);
+	# Time to leave
 		exit;
 	}