allow build with perl 5.22.0

oetiker · Apr 15, 2020 · a900760 · a900760
1 parent d0dd4fd
commit a900760
Show file tree

Hide file tree

Showing 5 changed files with 14 additions and 5 deletions.
diff --git a/CHANGES b/CHANGES
@@ -1,3 +1,12 @@
+0.31.4 2020-04-15 17:11:24 +0200 Tobias Oetiker <tobi@oetiker.ch>
+
+ - self regression
+ - allow build with Perl 5.22.0
+
+0.31.3 2020-04-10 08:31:35 +0200 Tobias Oetiker <tobi@oetiker.ch>
+
+ - eval not evan regression
+
 0.31.2 2020-03-27 14:50:51 +0100 Tobias Oetiker <tobi@oetiker.ch>
 
  - explicitly request the qx1 protocol for rpc as the default has changed to 2.0

diff --git a/Makefile.PL b/Makefile.PL
@@ -1,4 +1,4 @@
-use 5.022001;
+use 5.022000;
 
 use strict;
 use warnings;

diff --git a/lib/CallBackery.pm b/lib/CallBackery.pm
@@ -34,7 +34,7 @@ use CallBackery::Plugin::Doc;
 use CallBackery::Database;
 use CallBackery::User;
 
-our $VERSION = '0.31.2';
+our $VERSION = '0.31.4';
 use Mojo::Base 'Mojolicious';
 
 =head2 config

diff --git a/lib/CallBackery/Controller/RpcService.pm b/lib/CallBackery/Controller/RpcService.pm
@@ -445,7 +445,7 @@ sub handleUpload {
     }
     my $name = $self->param('name');
     if (not $name){
-        return self->render(text=>encode_json({exception=>{message=>'Plugin Name missing',code=>3934}}));
+        return $self->render(text=>encode_json({exception=>{message=>'Plugin Name missing',code=>3934}}));
     }
 
     my $upload = $self->req->upload('file');
@@ -480,7 +480,7 @@ sub handleUpload {
         }
         return $self->render(text=>encode_json({exception=>{message=>$@,code=>9999}}));
     }
-    if (evan { blessed $return and $return->isa('Mojo::Promise')}){
+    if (eval { blessed $return and $return->isa('Mojo::Promise')}){
         $return->then(sub {
             $self->render(text=>encode_json(shift));
         },

diff --git a/lib/CallBackery/qooxdoo/uploadwidget/source/class/uploadwidget/UploadButton.js b/lib/CallBackery/qooxdoo/uploadwidget/source/class/uploadwidget/UploadButton.js
@@ -1,4 +1,4 @@
-/* ************************************************************************
+q/* ************************************************************************
 
    qooxdoo - the new era of web development