diffbk 

diff -u ./t/user/profile.t~ ./t/user/profile.t
--- ./t/user/profile.t~	2010-09-02 00:22:51.000000000 +0200
+++ ./t/user/profile.t	2010-10-08 13:59:38.736483200 +0200
@@ -75,10 +75,12 @@
 my $cwd = Cwd::cwd();
 chdir $tempdir; END { chdir $cwd }
 my $output_file = 'my.profile.json';
-qx/$^X $bin -o $output_file --name "JohnPublic" --email jp\@example.com --secret 3.14159/;
+my $X = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
+$bin = $bin =~ m/\s/ ? qq{"$bin"} : $bin;
+qx/$X $bin -o $output_file --name "JohnPublic" --email jp\@example.com --secret 3.14159/;
 ok( -r $output_file, 'created named profile file with metabase-profile' );
 
-qx/$^X $bin --name "JohnPublic" --email jp\@example.com --secret 3.14159/;
+qx/$X $bin --name "JohnPublic" --email jp\@example.com --secret 3.14159/;
 ok( -r 'metabase_id.json', 'created default profile file with metabase-profile' );
 
 my $file_guts = do { local (@ARGV,$/) = 'metabase_id.json'; <> };