Select Code to Download

$ perl -MPath::Tiny -le "  print path( 'C:/')->realpath  "
C:/Documents and Settings/username

...

$ mversion Path::Tiny
0.028

$path =~ s{/$}{} if $path ne "/"; # hack to make splitpath give us a b
+asename

not ok 55 - path('A:/')
#   Failed test 'path('A:/')'
...
#   at t/zzz-spec.t line 200.
#          got: 'A:/'
#     expected: 'A:'