Variable, Watch, Step by Step not working #100
Comments
|
Which version of the extension? Could you enable the |
|
Hello Bjorn,
Thanks for your support and to help me.
First answers to your question:
- Used perl distribution: Strawberry (Windows Perl)
- Used perl version: v5.28.1
Now about your request. I'm quite new in "Visual Studio Code", so I hope I
understood correctly your instruction.
a) launch.json
I move "debugRaw: false" to " debugRaw: true"
I also move "debugLog: False" to "debugLog : true"
b) then I launched a Debug
nothing happen.
In "debug console", I got "perl debugger" CLI, ready to execute first
line of the code...
but clicking on F5 in "Visual Studio code" doesn't make any change...
But if in "Perl Debugger CLI" I type "n" then "Perl debugger" is working
fine.
Below is what is displayed in "Debug console":
-------------------------
Platform: win32
Launching program in terminal and waiting
Inactive RemoteSession
Remote debugger at "127.0.0.1:55882" connected at port 0.
Loading DB routines from perl5db.pl version 1.53
Editor support available.
Enter h or 'h h' for help, or 'perldoc perldebug' for more help.
main::(C:\Users\DXXJ2506\Documents\Visual Studio/test.pl:7):
7: print "Yes\n" ;
--------------------------------
c) Output window. Please find below extract of what is displayed in
"output" window
["2019-05-07T14:43:15.270Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","\nLoading DB routines from perl5db.pl version
1.53\n"]
["2019-05-07T14:43:15.270Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","Editor support available.\n\nEnter h or 'h h' for
help, or 'perldoc perldebug' for more help.\n\n"]
["2019-05-07T14:43:15.270Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","main::(C:\\Users\\DXXJ2506\\Documents\\Visual
Studio/test.pl:7):\n7:\tprint \"Yes\\n\" ;\n"]
["2019-05-07T14:43:15.330Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<1> "]
["2019-05-07T14:43:15.331Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","o warnLevel=0\n"]
["2019-05-07T14:43:15.332Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," warnLevel = '0'\n"]
["2019-05-07T14:43:15.333Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<2> "]
["2019-05-07T14:43:15.333Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","$DB::single = 1;\n"]
["2019-05-07T14:43:15.335Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","\n"]
["2019-05-07T14:43:15.340Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<3> "]
["2019-05-07T14:43:15.340Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","p $$\n"]
["2019-05-07T14:43:15.340Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","17768"]
["2019-05-07T14:43:15.340Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","\n DB<4> "]
["2019-05-07T14:43:15.348Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","p $0\n"]
["2019-05-07T14:43:15.348Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","C:\\Users\\DXXJ2506\\Documents\\Visual Studio/
test.pl"]
["2019-05-07T14:43:15.348Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","\n DB<5> "]
["2019-05-07T14:43:15.348Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","p sub { local $@; eval \"require
Sys::Hostname; Sys::Hostname::hostname()\" }->()\n"]
["2019-05-07T14:43:15.350Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","WX-EQ6112055"]
["2019-05-07T14:43:15.350Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","\n DB<6> "]
["2019-05-07T14:43:15.350Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","p $]\n"]
["2019-05-07T14:43:15.350Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","5.028001"]
["2019-05-07T14:43:15.358Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","\n DB<7> "]
["2019-05-07T14:43:15.358Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","p sub { local $@; eval \"require
PadWalker; PadWalker->VERSION()\" }->()\n"]
["2019-05-07T14:43:15.363Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","2.3"]
["2019-05-07T14:43:15.363Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","\n DB<8> "]
["2019-05-07T14:43:15.363Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904"," \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-07T14:43:15.363Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","\n"]
["2019-05-07T14:43:15.363Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<9> "]
["2019-05-07T14:43:15.363Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904"," \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-07T14:43:15.363Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","\n"]
["2019-05-07T14:43:15.363Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<10> "]
["2019-05-07T14:43:15.363Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904"," \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-07T14:43:15.365Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","\n"]
["2019-05-07T14:43:15.365Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<11> "]
["2019-05-07T14:43:15.377Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","L b\n"]
["2019-05-07T14:43:15.377Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<12> "]
["2019-05-07T14:43:15.377Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","L b\n"]
["2019-05-07T14:43:15.377Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<13> "]
["2019-05-07T14:43:15.377Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","f test.pl\n"]
["2019-05-07T14:43:15.377Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","Choosing C:\\Users\\DXXJ2506\\Documents\\Visual
Studio/test.pl matching 'test.pl':\n"]
["2019-05-07T14:43:15.377Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","Already in C:\\Users\\DXXJ2506\\Documents\\Visual
Studio/test.pl.\n DB<14> "]
["2019-05-07T14:43:15.377Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","b 9\n"]
["2019-05-07T14:43:15.377Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<15> "]
["2019-05-07T14:43:15.377Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","f test.pl\n"]
["2019-05-07T14:43:15.380Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","Choosing C:\\Users\\DXXJ2506\\Documents\\Visual
Studio/test.pl matching 'test.pl':\n"]
["2019-05-07T14:43:15.380Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","Already in C:\\Users\\DXXJ2506\\Documents\\Visual
Studio/test.pl.\n DB<16> "]
["2019-05-07T14:43:15.380Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","b 10\n"]
["2019-05-07T14:43:15.380Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<17> "]
["2019-05-07T14:43:15.443Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","p
Devel::vscode::_unreportedSources() if defined
&Devel::vscode::_unreportedSources\n"]
["2019-05-07T14:43:15.443Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904
","_<C:/Strawberry/perl/lib/IO.pm\t_<C:/Strawberry/perl/lib/Sys/Hostname.pm\t_<C:/Strawberry/perl/lib/IO/Socket/INET.pm\t_<C:/Strawberry/perl/lib/IO/Select.pm\t_<C:/Strawberry/perl/lib/Scalar/Util.pm\t_<C:/Strawberry/perl/lib/
feature.pm
\t_<C:/Strawberry/perl/site/lib/PadWalker.pm\t_<C:/Strawberry/perl/lib/List/Util.pm\t_<C:/Strawberry/perl/lib/
warnings.pm\t_<C:/Strawberry/perl/lib/Exporter.pm\t_<C:\\Users\\DXXJ2506\\Documents\\Visual
Studio/test.pl
\t_<C:/Strawberry/perl/lib/Config_git.pl\t_<C:/Strawberry/perl/lib/Exporter/Heavy.pm\t_<C:/Strawberry/perl/lib/Socket.pm\t_<C:/Strawberry/perl/lib/
vars.pm
\t_<C:/Strawberry/perl/vendor/lib/Term/ReadKey.pm\t_<C:/Strawberry/perl/lib/Config.pm\t_<C:/Strawberry/perl/lib/SelfLoader.pm\t_<C:/Strawberry/perl/vendor/lib/Term/ReadLine/Perl.pm\t_<C:/Strawberry/perl/lib/Carp.pm\t_<C:/Strawberry/perl/lib/
perl5db.pl
\t_<C:/Strawberry/perl/lib/Term/ReadLine.pm\t_<C:/Strawberry/perl/vendor/lib/Term/ReadLine/
readline.pm
\t_<C:/Strawberry/perl/lib/IO/Handle.pm\t_<C:/Strawberry/perl/lib/
overloading.pm
\t_<C:/Strawberry/perl/lib/Errno.pm\t_<C:/Strawberry/perl/lib/Cwd.pm\t_<C:/Strawberry/perl/lib/IO/Socket/UNIX.pm\t_<C:/Strawberry/perl/lib/Symbol.pm\t_<C:/Strawberry/perl/lib/Win32.pm\t_<C:/Strawberry/perl/lib/
strict.pm
\t_<C:/Strawberry/perl/lib/XSLoader.pm\t_<C:/Strawberry/perl/lib/SelectSaver.pm\t_<C:/Strawberry/perl/lib/IO/Socket.pm\t_<C:/Strawberry/perl/lib/DynaLoader.pm\t_<C:/Strawberry/perl/lib/Term/Cap.pm\t_<C:/Strawberry/perl/lib/warnings/
register.pm\t_<C:/Strawberry/perl/lib/Config_heavy.pl"]
["2019-05-07T14:43:15.443Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","\n DB<18> "]
["2019-05-07T14:43:15.447Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","T\n"]
["2019-05-07T14:43:15.448Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","@ = DB::DB called from file
'C:\\Users\\DXXJ2506\\Documents\\Visual Studio/test.pl' line 7\n"]
["2019-05-07T14:43:15.448Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<18> "]
["2019-05-07T14:43:15.493Z","perl-debug.streamcatcher.write","
127.0.0.1:55903 serving 127.0.0.1:55904","T\n"]
["2019-05-07T14:43:15.495Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904","@ = DB::DB called from file
'C:\\Users\\DXXJ2506\\Documents\\Visual Studio/test.pl' line 7\n"]
["2019-05-07T14:43:15.495Z","perl-debug.streamcatcher.data","127.0.0.1:55903
serving 127.0.0.1:55904"," DB<18> "]
Regards,
Phil.
Le ven. 3 mai 2019 à 19:23, Björn Höhrmann <[email protected]> a
écrit :
… Which version of the extension? Could you enable the launch.json setting
debugRaw and have a look at the corresponding output window (possibly
send in its contents)? Also, do a p $^X in the debug console to check
which perl.exe you are using.
—
You are receiving this because you authored the thread.
Reply to this email directly, view it on GitHub
<#100 (comment)>,
or mute the thread
<https://github.com/notifications/unsubscribe-auth/AL7JWT2PT2RM3HMPP4QHI2DPTRYHFANCNFSM4HKUMNFQ>
.
|
|
Hey, just registered for you! Same for me. Use Visual Studio Code on Win10 with Strawberry-Perl. The first time I used it everything seems working. But then it shows no variables or debugging position. In the console you can see that the debugger is working. Need logs too? Edit: Using Perl 5.16.3 PadWalker is installed p $^X shows C:\Perl\perl\bin\perl.exe, its right Output shows: |
|
Maybe, there is a problem with a Firewall on Debugging Ports (57311 and 57312 for me)? |
|
I have the same problem on Win 10 Pro (latest version) with Perl v5.16.3 x64 with extension version 0.6.0 or 0.6.1. (Anyway on macOS 10.14.6 it works correcly with the same extension version.) With an earlier VSC & v0.5.0 extension the debugging was good previously. Now the symptoms are the following: the debug session starts but no visual yellow cursor can be seen next to the line where the debugger stops first. The variables & call stack windows are empty during the session. The debug console & terminal tabs show that we are in a debug session. The debugging keys are working but there is no visual feedback. When I try to stop the debugging I have to click on the stop button twice. (This is another bug that exists on macOS too but worked fine in extension v0.5.0.) The 1st stop terminates the terminal session (perl -d), the 2nd one terminates the debug console session. |
|
I've realized what the problem is with the extension on Windows. This is due to the paths that contain backslashes in the |
|
Not sure if we can normalize paths some how on Windows - Thank you for the investigation, will try reproducing |
|
There's always File::Spec, as you're probably aware. |
|
Possible solution I am not sure if this will help but I have had the same issue on several machines in our development environment and not on others and have spent weeks looking for a solution over the last year, sometimes resorting to rebuilding development environments completely. I have been really confused, uninstalled visual studio code, reinstalled, installed insiders edition portable editions to no avail and multiple versions of the Perl-Debug extension, no luck. The code will start to debug and you can use the debugging window to step through the code using the n command but nothing displays, no variables watches no little yellow triangle for current line etc. Then I tried something that we do when we write cross platform code and removed ALL spaces from the path names to where the Perl files are located and from the Perl files themselves. As soon as I did this all the debugging functionality was working as expected on all editions Visual Studio Code . As a test I have set the the identical code in two paths on the same machine with the only difference being that one path has a space in it and the other doesn't. The one with the space doesn't work correctly but the one without debugs absolutely fine. From looking at the log information proved by PhilSanch who has had the issue I can see the path to the perl file is this has a space in in it. The addition of a space in a path is such a simple thing but in my case it has a major effect of the usability of Perl debugging. I am not saying it is the correct solution but it has enabled me to debug again on all our systems and we are putting procedure in place to ensure all Perl code is in paths with NO SPACES on all platforms |
|
I'm thinking to test this in windows - I'll try to make the path/file resolver more resilient (would also be nice to get tests running for windows again) |
|
Problem still existent in 0.6.2 |
|
Thanks @FirstStormtrooper for reporting - I'm looking into this issue atm. improving file path checks / regex and adding more tests to this. |
|
Are there any news? |
|
Hello
I investigate and problem is due to GPO policy that do prevent writing or
reading in some directories used by plugin.
Issue solved via making a VM and installing again on it everything
Regards
Phil
Le lun. 25 nov. 2019 à 15:53, FirstStormtrooper <[email protected]>
a écrit :
… Are there any news?
—
You are receiving this because you authored the thread.
Reply to this email directly, view it on GitHub
<#100?email_source=notifications&email_token=AL7JWT3TE2P6CZFNSED2AWDQVPRHFA5CNFSM4HKUMNF2YY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOEFCVADI#issuecomment-558190605>,
or unsubscribe
<https://github.com/notifications/unsubscribe-auth/AL7JWT4EZFOLW3DQUJX5EILQVPRHFANCNFSM4HKUMNFQ>
.
|
Hello,
I installed Perl Debug, but no variables are displayed in Visual Code. Step by step isn't working too, and no way to execute program up to defined breaking points.
What is strange is that there is no error message nor problems listed in "PROBLEMS".
Into "DEBUG CONSOLE", Perl Debug features are working properly (if I set "n", next line is executed properly, I do "p $FOE" it displays variable value).
I have installed PadWalker and Perl I used is the latest Strawberry version under Windows (W10).
Any clue where might come the issue?
Thanks in advance for your support.
The text was updated successfully, but these errors were encountered: