package PLP::Functions;
-use base 'Exporter';
-use Fcntl qw(:flock);
use strict;
+use warnings;
+
+use Exporter qw(import);
+use Fcntl qw(:flock);
+our $VERSION = '1.00';
our @EXPORT = qw/Entity DecodeURI EncodeURI Include include PLP_END
AddCookie ReadFile WriteFile AutoURL Counter exit/;
sub AddCookie ($) {
if ($PLP::Script::header{'Set-Cookie'}) {
- $PLP::Script::header{'Set-Cookie'} .= "\nSet-Cookie: $_[0]";
+ $PLP::Script::header{'Set-Cookie'} .= "\n" . $_[0];
} else {
$PLP::Script::header{'Set-Cookie'} = $_[0];
}