Dashes and spaces in directory under Windows

[guentherko]

Hi,

if I have a working directory of let's say "C:\MyScripts" the debugger works mainly fine. If I put the script under "C:\My - Scripts" it doesn't run at all

[hoehrmann]

@guentherko : Could you enable the debugRaw setting in launch.json and send in the contents of the associated output window from some minimal debug session (like set a breakpoint, launch, step over)? That should give us a clue where the problem might be, like in a filename regex or something. Morten and I do not use Windows (although this problem might be be limited to Windows to begin with).

[guentherko]

I hope this helps...

["2019-05-10T09:53:30.665Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","\nLoading DB routines from perl5db.pl version 1.49_05\nEditor support available.\n\nEnter h or 'h h' for help, or 'perldoc perldebug' for more help.\n\n"] ["2019-05-10T09:53:30.667Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","main::(C:\\Users\\MyUserName\\OneDrive - My Company Name\\Scripts/tester2.pl:3):\n3:\tmy $WHATEVER = \"Hallo!\\n\";\n"] ["2019-05-10T09:53:30.711Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<1> "] ["2019-05-10T09:53:30.712Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","o warnLevel=0\n"] ["2019-05-10T09:53:30.714Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," warnLevel = '0'\n"] ["2019-05-10T09:53:30.714Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<2> "] ["2019-05-10T09:53:30.714Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","$DB::single = 1;\n"] ["2019-05-10T09:53:30.717Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","\n"] ["2019-05-10T09:53:30.717Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<3> "] ["2019-05-10T09:53:30.717Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","p $$\n"] ["2019-05-10T09:53:30.717Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","14672"] ["2019-05-10T09:53:30.717Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","\n DB<4> "] ["2019-05-10T09:53:30.721Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","p $0\n"] ["2019-05-10T09:53:30.721Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","C:\\Users\\MyUserName\\OneDrive - My Company Name\\Scripts/tester2.pl"] ["2019-05-10T09:53:30.721Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","\n DB<5> "] ["2019-05-10T09:53:30.721Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","p sub { local $@; eval \"require Sys::Hostname; Sys::Hostname::hostname()\" }->()\n"] ["2019-05-10T09:53:30.723Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","MYPCNAME\n"] ["2019-05-10T09:53:30.723Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<6> "] ["2019-05-10T09:53:30.723Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","p $]\n"] ["2019-05-10T09:53:30.724Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","5.024003"] ["2019-05-10T09:53:30.725Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","\n DB<7> "] ["2019-05-10T09:53:30.725Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","p sub { local $@; eval \"require PadWalker; PadWalker->VERSION()\" }->()\n"] ["2019-05-10T09:53:30.727Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","\n"] ["2019-05-10T09:53:30.727Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<8> "] ["2019-05-10T09:53:30.728Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560"," \t\t\tsub Devel::vscode::_unreportedSources { \t\t\t\treturn join \"\t\", grep { \t\t\t\t\tmy $old = $Devel::vscode::_reportedSources{$_}; \t\t\t\t\t$Devel::vscode::_reportedSources{$_} = $$; \t\t\t\t\tnot defined $old or $old ne $$ \t\t\t\t} grep { /^_<[^(]/ } keys %main:: \t\t\t} \t\t\n"] ["2019-05-10T09:53:30.735Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","\n DB<9> "] ["2019-05-10T09:53:30.735Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560"," \t\t\tsub Devel::vscode::_getSourceCode { \t\t\t\tlocal $_ = join(\"\", @{\"main::_<@_\"}); \t\t\t\ts/([^a-zA-Z0-9\\x{80}-\\x{10FFFF}])/ \t\t\t\t\tsprintf '%%%02x', ord \"$1\"/ge; \t\t\t\treturn $_ \t\t\t} \t\t\n"] ["2019-05-10T09:53:30.735Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","\n"] ["2019-05-10T09:53:30.735Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<10> "] ["2019-05-10T09:53:30.735Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560"," \t\t\tpackage DB; \t\t\t*DB::postponed = sub { \t\t\t\tmy ($old_postponed) = @_; \t\t\t\t$Devel::vscode::_overrodePostponed = 1; \t\t\t\treturn sub { \t\t\t\t\tif ('GLOB' eq ref(\\$_[0]) and $_[0] =~ /<(.*)s*$/s) { \t\t\t\t\t\tprint { $DB::OUT } \"vscode: new loaded source $1\\n\"; \t\t\t\t\t} else { \t\t\t\t\t\tprint { $DB::OUT } \"vscode: new subroutine $_[0]\\n\"; \t\t\t\t\t} \t\t\t\t\t&{$old_postponed}; \t\t\t\t}; \t\t\t}->(\\&DB::postponed) unless $Devel::vscode::_overrodePostponed; \t\t\n"] ["2019-05-10T09:53:30.735Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","\n DB<11> "] ["2019-05-10T09:53:30.737Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","L b\n"] ["2019-05-10T09:53:30.737Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<12> "] ["2019-05-10T09:53:30.740Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","L b\n"] ["2019-05-10T09:53:30.740Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<13> "] ["2019-05-10T09:53:30.740Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","f tester2.pl\n"] ["2019-05-10T09:53:30.745Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","Choosing C:\\Users\\MyUserName\\OneDrive - My Company Name\\Scripts/tester2.pl matching 'tester2.pl':\nAlready in C:\\Users\\MyUserName\\OneDrive - My Company Name\\Scripts/tester2.pl.\n"] ["2019-05-10T09:53:30.745Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<14> "] ["2019-05-10T09:53:30.745Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","b 3\n"] ["2019-05-10T09:53:30.745Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<15> "] ["2019-05-10T09:53:30.808Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","p Devel::vscode::_unreportedSources() if defined &Devel::vscode::_unreportedSources\n"] ["2019-05-10T09:53:30.808Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","_<C:/Perl64/lib/warnings/register.pm\t_<C:/Perl64/lib/Exporter/Heavy.pm\t_<C:/Perl64/lib/Config_heavy.pl\t_<C:/Perl64/lib/Scalar/Util.pm\t_<C:/Perl64/lib/Symbol.pm\t_<C:/Perl64/lib/Socket.pm\t_<C:/Perl64/lib/Term/ReadLine/readline.pm\t_<C:/Perl64/lib/SelfLoader.pm\t_<C:/Perl64/lib/strict.pm\t_<C:/Perl64/lib/warnings.pm\t_<C:/Perl64/lib/IO/Socket/UNIX.pm\t_<C:/Perl64/lib/Config_git.pl\t_<C:/Perl64/lib/Term/ReadLine/Perl.pm\t_<C:/Perl64/lib/IO/Socket/INET.pm\t_<C:/Perl64/lib/IO/Select.pm\t_<C:/Perl64/lib/IO/Socket.pm\t_<C:/Perl64/lib/IO/Handle.pm\t_<C:/Perl64/lib/Term/ReadLine.pm\t_<C:/Perl64/lib/Carp.pm\t_<C:/Perl64/lib/Term/Cap.pm\t_<C:/Perl64/lib/IO.pm\t_<C:/Perl64/lib/perl5db.pl\t_<C:/Perl64/lib/List/Util.pm\t_<C:/Perl64/site/lib/sitecustomize.pl\t_<C:/Perl64/lib/Cwd.pm\t_<C:/Perl64/lib/Win32.pm\t_<C:/Perl64/lib/feature.pm\t_<C:/Perl64/lib/SelectSaver.pm\t_<C:/Perl64/lib/DynaLoader.pm\t_<C:/Perl64/lib/Term/ReadKey.pm\t_<C:/Perl64/lib/XSLoader.pm\t_<C:/Perl64/lib/Errno.pm\t_<C:/Perl64/lib/vars.pm\t_<C:\\Users\\MyUserName\\OneDrive - My Company Name\\Scripts/tester2.pl\t_<C:/Perl64/lib/Exporter.pm\t_<C:/Perl64/lib/Config.pm\t_<C:/Perl64/lib/Sys/Hostname.pm\t_<C:/Perl64/lib/ActivePerl/Config.pm"] ["2019-05-10T09:53:30.808Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","\n DB<16> "] ["2019-05-10T09:53:30.813Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","T\n"] ["2019-05-10T09:53:30.814Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","@ = DB::DB called from file 'C:\\Users\\MyUserName\\OneDrive - My Company Name\\Scripts/tester2.pl' line 3\n"] ["2019-05-10T09:53:30.814Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<16> "] ["2019-05-10T09:53:30.848Z","perl-debug.streamcatcher.write","127.0.0.1:64559 serving 127.0.0.1:64560","T\n"] ["2019-05-10T09:53:30.849Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560","@ = DB::DB called from file 'C:\\Users\\MyUserName\\OneDrive - My Company Name\\Scripts/tester2.pl' line 3\n"] ["2019-05-10T09:53:30.850Z","perl-debug.streamcatcher.data","127.0.0.1:64559 serving 127.0.0.1:64560"," DB<16> "]
debug console:
Platform: win32 Launching program in terminal and waiting Inactive RemoteSession Remote debugger at "127.0.0.1:64560" connected at port 0. Loading DB routines from perl5db.pl version 1.49_05 Editor support available. Enter h or 'h h' for help, or 'perldoc perldebug' for more help. main::(C:\Users\MyUserName\OneDrive - My Company Name\Scripts/tester2.pl:3): 3: my $WHATEVER = "Hallo!\n";