test send_file with spaces in both arguments

[cloudstore.git] / torrent / rtorrent-dump.pl

diff --git a/torrent/rtorrent-dump.pl b/torrent/rtorrent-dump.pl
index a900aec..f530454 100755 (executable)
--- a/torrent/rtorrent-dump.pl
+++ b/torrent/rtorrent-dump.pl
@@ -5,12 +5,12 @@ use strict;
 use RTPG;
 use Data::Dump qw(dump);
 
-my $h = new RTPG(url=> $ENV{SOCKET} || '/srv/cloudstore/var/torrent/socket');
+my $h = new RTPG(url=> $ENV{SOCKET} || '/rsync1/s1/torrent/socket');
 
 if ( @ARGV ) {
-       print "# ",dump(@ARGV);
+       print "# ",dump(@ARGV), " -> ";
        my $out = $h->rpc_command(@ARGV);
-       print dump($out);
+       print dump($out),$/;
        exit;
 }