#!/usr/bin/perl

use SVN::Client;
my $ctx = new SVN::Client() ;

$ctx->status(".", 'WORKING', undef, 0, 0, 0, 0);

=for your info

perl: subversion/libsvn_subr/path.c:156: svn_path_join: Assertion `is_canonical (base, blen)' failed.

Program received signal SIGABRT, Aborted.
[Switching to Thread 16384 (LWP 613)]
0x400c8571 in kill () from /lib/libc.so.6
(gdb) bt
#0  0x400c8571 in kill () from /lib/libc.so.6
#1  0x40055761 in pthread_kill () from /lib/libpthread.so.0
#2  0x40055a6b in raise () from /lib/libpthread.so.0
#3  0x400c8324 in raise () from /lib/libc.so.6
#4  0x400c9838 in abort () from /lib/libc.so.6
#5  0x400c1a4f in __assert_fail () from /lib/libc.so.6
#6  0x40311f24 in svn_path_join (base=0x8174508 ".", component=0x402f63a0 ".svn", pool=0x8314928) at subversion/libsvn_subr/path.c:156
#7  0x402d83a6 in v_extend_with_adm_name (path=0x8174508 ".", extension=0x0, use_tmp=0, pool=0x8314928, ap=0xbffff77c "\225\201/@") at subversion/libsvn_wc/adm_files.c:71
#8  0x402d84ad in svn_wc__adm_path (path=0x8174508 ".", tmp=0, pool=0x8314928) at subversion/libsvn_wc/adm_files.c:120
#9  0x402ed973 in svn_wc_check_wc (path=0x8174508 ".", wc_format=0xbffff804, pool=0x8314928) at subversion/libsvn_wc/questions.c:66
#10 0x402e544a in probe (dir=0xbffff808, path=0x8174508 ".", wc_format=0xbffff804, pool=0x8314928) at subversion/libsvn_wc/lock.c:257
#11 0x402e5c81 in svn_wc_adm_probe_open (adm_access=0xbffff8bc, associated=0x0, path=0x8174508 ".", write_lock=0, tree_lock=0, pool=0x8314928) at subversion/libsvn_wc/lock.c:532
#12 0x40293306 in svn_client_status (result_rev=0xbffff94c, path=0x8174508 ".", revision=0xbffff950, status_func=0x4032983d <svn_swig_pl_status_func>, status_baton=0x8314814, descend=0, get_all=0, update=0, no_ignore=0, ctx=0x8314960, pool=0x8314928) at subversion/libsvn_client/status.c:106
#13 0x408d8d8e in _wrap_svn_client_status (my_perl=0x815cf18, cv=0x822da40) at svn_client.c:3630
#14 0x080cce76 in Perl_pp_entersub ()
#15 0x080c67b9 in Perl_runops_standard ()
#16 0x08063508 in perl_run ()
#17 0x08063315 in perl_run ()
#18 0x0805fb5f in main ()
(gdb)

=cut