@INC = qw(. ../lib);
}
-print "1..30\n";
+print "1..32\n";
require "test.pl";
is($r, "OK\nDONE\n", "goto within use-d file");
unlink "goto01.pm";
+# test for [perl #24108]
+sub i_return_a_label {
+ print "ok 31 - i_return_a_label called\n";
+ return "returned_label";
+}
+eval { goto +i_return_a_label; };
+print "not ";
+returned_label : print "ok 32 - done to returned_label\n";
exit;