diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-03-08 17:33:39 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-03-08 17:33:39 +0000 |
| commit | 4b5ae309d8932eb959b5fc621604614358181bc9 (patch) | |
| tree | e7642f4b976009cdcc21a5f4a6c1d19052406d38 /ext/Tie-Hash-NamedCapture/NamedCapture.pm | |
| parent | f8088870d3cebbc655e7ab8ab4e3f997db4e0fbe (diff) | |
| download | perl-4b5ae309d8932eb959b5fc621604614358181bc9.tar.gz | |
In Tie::Hash::NamedCapture move the tie of %+ and %- from perl to XS.
Diffstat (limited to 'ext/Tie-Hash-NamedCapture/NamedCapture.pm')
| -rw-r--r-- | ext/Tie-Hash-NamedCapture/NamedCapture.pm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/ext/Tie-Hash-NamedCapture/NamedCapture.pm b/ext/Tie-Hash-NamedCapture/NamedCapture.pm index db86908a49..932e4404d1 100644 --- a/ext/Tie-Hash-NamedCapture/NamedCapture.pm +++ b/ext/Tie-Hash-NamedCapture/NamedCapture.pm @@ -3,15 +3,8 @@ package Tie::Hash::NamedCapture; our $VERSION = "0.08"; -sub TIEHASH; - require XSLoader; -XSLoader::load(); - -tie %+, __PACKAGE__; -tie %-, __PACKAGE__, all => 1; - -1; +XSLoader::load(); # This returns true, which makes require happy. __END__ |