jerryhone has asked for the wisdom of the Perl Monks concerning the following question:

I have the following code snippet:

my($this) = FTP->new($RemoteHost, q(Timeout) => $Timeout ); bless($this); %{*$this} = ( %{*$this}, q(Rename) => $Rename, q(Recursions) => $Recursions, q(NoCheck) => $NoCheck, q(DirectCopy) => $DirectCopy, );

When the %{*$this} line is executed, I'm greeted with the following error...

Not a GLOB reference at line 85

This isn't my code, so any guidance on what this is telling me and what's needed to "fix" it would be appreciated.