This code was extracted from the Perl 5 core at perl 5.15.5.

The original licence reads as follows:

-----

This program is free software; you can redistribute it and/or modify

it under the terms of either:

	a) the GNU General Public License as published by the Free

	Software Foundation; either version 1, or (at your option) any

	later version, or

	b) the "Artistic License" which comes with this Kit.

This program is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either

the GNU General Public License or the Artistic License for more details.

You should have received a copy of the Artistic License with this

Kit, in the file named "Artistic".  If not, I'll be glad to provide one.

You should also have received a copy of the GNU General Public License

along with this program in the file named "Copying". If not, write to the

Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,

Boston, MA 02110-1301, USA or visit their web page on the internet at

http://www.gnu.org/copyleft/gpl.html.