diff options
| author | Jonathan Stowe <gellyfish@gellyfish.com> | 2001-09-29 16:52:43 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-30 00:31:07 +0000 |
| commit | 57c778516574f3d031a85dcdab2d18deacee782a (patch) | |
| tree | 5280f277d73f919be23b1f0e7daf59a3e935875d /ext/DB_File | |
| parent | 8d344e3e57673a7c678a1daf0c8a5f11c220a8f9 (diff) | |
| download | perl-57c778516574f3d031a85dcdab2d18deacee782a.tar.gz | |
Remove string eval from AUTOLOAD
Message-ID: <Pine.LNX.4.33.0109291535120.18586-100000@orpheus.gellyfish.com>
p4raw-id: //depot/perl@12277
Diffstat (limited to 'ext/DB_File')
| -rw-r--r-- | ext/DB_File/DB_File.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm index 1df9876206..5ac1120b17 100644 --- a/ext/DB_File/DB_File.pm +++ b/ext/DB_File/DB_File.pm @@ -222,8 +222,9 @@ sub AUTOLOAD { "; } } - eval "sub $AUTOLOAD { $val }"; - goto &$AUTOLOAD; + no strict 'refs'; + *{$AUTOLOAD} = sub { $val }; + goto &{$AUTOLOAD}; } |