[perl #40909] [BUG] Tcl - [namespace eval] + [source] + [proc] don't play well together

[Matt Diephouse]

# New Ticket Created by Matt Diephouse
# Please include the string: [perl #40909]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40909 >

Given a file okay.tcl:

proc okay {} { puts okay }

This should throw an error (and not print okay):

namespace eval { source okay.tcl }
okay

Currently it prints okay. This should get added as a test; it depends
on a file so I wasn't sure how to best set it up.

--
Matt Diephouse