TestML should support 5.8.1

// is 5.10 claimed to support 5.6.1
ingydotnet · Feb 8, 2014 · 2100bcc · 2100bcc
1 parent 2d78f39
commit 2100bcc
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/lib/TestML.pm b/lib/TestML.pm
@@ -1,5 +1,3 @@
-use 5.006001;
-
 package TestML;
 use TestML::Base;
 

diff --git a/lib/TestML/Runtime.pm b/lib/TestML/Runtime.pm
@@ -184,8 +184,8 @@ sub lookup_callable {
 
 sub get_point {
     my ($self, $name) = @_;
-    my $value = $self->function->getvar('Block')->{points}{$name}
-        // return;
+    my $value = $self->function->getvar('Block')->{points}{$name};
+    defined $value or return;
     if ($value =~ s/\n+\z/\n/ and $value eq "\n") {
         $value = '';
     }