diff options
| -rw-r--r-- | package.json | 2 | ||||
| -rw-r--r-- | perlnavigator-0.2.8.vsix (renamed from perlnavigator-0.2.7.vsix) | bin | 1382343 -> 1382398 bytes | |||
| -rw-r--r-- | server/src/perl/criticWrapper.pl | 4 |
3 files changed, 4 insertions, 2 deletions
diff --git a/package.json b/package.json index 15f883a..396e6e3 100644 --- a/package.json +++ b/package.json @@ -4,7 +4,7 @@ "description": "Code navigation, autocompletion, syntax checking, and linting for Perl", "author": "bscan", "license": "MIT", - "version": "0.2.7", + "version": "0.2.8", "icon": "images/camel_icon.png", "repository": { "type": "git", diff --git a/perlnavigator-0.2.7.vsix b/perlnavigator-0.2.8.vsix Binary files differindex 320d6f0..7a55c15 100644 --- a/perlnavigator-0.2.7.vsix +++ b/perlnavigator-0.2.8.vsix diff --git a/server/src/perl/criticWrapper.pl b/server/src/perl/criticWrapper.pl index ade8852..feaf791 100644 --- a/server/src/perl/criticWrapper.pl +++ b/server/src/perl/criticWrapper.pl @@ -7,8 +7,11 @@ use utf8; use Unicode::Normalize qw(NFKD); use open qw(:std :utf8); +my $sSource = do { local $/; <STDIN> }; + if ( !eval{ require PPI; require Perl::Critic; 1} ){ print "\nSkipping Perl::Critic as it is not installed\n"; + # Quit early is fine, but needs to happen after fully reading STDIN due to a pipe issue on MacOS. exit(0); } =head @@ -20,7 +23,6 @@ my ($file, $profile); GetOptions ("file=s" => \$file, "profile=s" => \$profile); -my $sSource = do { local $/; <STDIN> }; die("Did not pass any source via stdin") if !defined($sSource); $profile = resolve_profile($profile); |