DB<2> s Capture::Tiny::capture((eval 40)[C:/Dwimperl/perl/site/lib/Capture/Tiny.pm:38]:1): 1: sub capture(&;@) {unshift @_, 1, 1, 0, 0; goto \&_capture_tee;} DB<2> ... File::Spec::Win32::tmpdir(C:/Dwimperl/perl/lib/File/Spec/Win32.pm:73): File::Temp::tempfile(C:/Dwimperl/perl/lib/File/Temp.pm:1381): 1381: croak "Error in tempfile() using $template: $errstr" 1382: unless (($fh, $path) = _gettemp($template, 1383: "open" => $options{'OPEN'}, 1384: "mkdir"=> 0 , 1385: "unlink_on_close" => $unlink_on_close, 1386: "suffixlen" => length($options{'SUFFIX'}), 1387: "ErrStr" => \$errstr, 1388: "use_exlock" => $options{EXLOCK}, 1389: ) ); DB<15> s File::Temp::_gettemp(C:/Dwimperl/perl/lib/File/Temp.pm:360): 360: if (scalar(@_) % 2 != 0) { ... DB<15> File::Temp::_replace_XX(C:/Dwimperl/perl/lib/File/Temp.pm:627): 627: my $end = ( $] >= 5.006 ? "\\z" : "\\Z" ); DB<15> s File::Temp::_replace_XX(C:/Dwimperl/perl/lib/File/Temp.pm:629): 629: if ($ignore) { DB<15> x $end 0 '\\z' DB<16> ... File::Temp::_replace_XX(C:/Dwimperl/perl/lib/File/Temp.pm:632): 632: $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge; DB<16> x $path 0 '\\XXXXXXXXXX' ... DB<18> File::Temp::_replace_XX(C:/Dwimperl/perl/lib/File/Temp.pm:634): 634: return $path; DB<18> x $path 0 '\\ApibgN64sj' ... DB<20> s File::Spec::Win32::splitpath(C:/Dwimperl/perl/lib/File/Spec/Win32.pm:210): 210: my ($volume,$directory,$file) = ('','',''); DB<20> x @_ 0 'File::Spec' 1 '\\ApibgN64sj' ... DB<29> File::Temp::_gettemp(C:/Dwimperl/perl/lib/File/Temp.pm:513): 513: $open_success = sysopen($fh, $path, $flags, 0600); DB<29> x $fh,$path,$flags 0 undef 1 '\\ApibgN64sj' 2 34178 DB<30> s File::Temp::_gettemp(C:/Dwimperl/perl/lib/File/Temp.pm:515): 515: if ( $open_success ) { DB<30> x $open_success 0 undef DB<31>