Perlito5 - test

fglock · Jul 14, 2017 · 106b839 · 106b839
1 parent dad976d
commit 106b839
Showing 1 changed file with 15 additions and 1 deletion.
diff --git a/t5/unit/sub_autoload.t b/t5/unit/sub_autoload.t
@@ -1,7 +1,7 @@
 use feature 'say';
 use strict;
 
-say "1..9";
+say "1..10";
 
 {
     package A;
@@ -85,4 +85,18 @@ say "1..9";
     say "ok 9 - exists() doesn't call AUTOLOAD # $x ";
 }
 
+{
+    package H;
+    our $AUTOLOAD;
+    my $f = 1;
+    sub AUTOLOAD {
+        $f = 2;
+        print "# HERE\n";
+        return wantarray ? ( 6, 7 ) : 456;
+    }
+    my $x = \&{"subr"};
+    print "not " if $f != 1;
+    say "ok 10 - ref doesn't call AUTOLOAD # $x ";
+}
+