git.shiar.nl
/
perl
/
plp
/
.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
v3.18 release
[perl/plp/.git]
/
PLP
/
Functions.pm
diff --git
a/PLP/Functions.pm
b/PLP/Functions.pm
index 1b233c4e121436c062e2ddb6ef660d33f34e500c..ea30488f55a79f280fe6fb2ce552e3b8458c5a9c 100644
(file)
--- a/
PLP/Functions.pm
+++ b/
PLP/Functions.pm
@@
-1,6
+1,5
@@
-#-------------------------#
- package PLP::Functions;
-#-------------------------#
+package PLP::Functions;
+
use base 'Exporter';
use Fcntl qw(:flock);
use strict;
use base 'Exporter';
use Fcntl qw(:flock);
use strict;
@@
-16,7
+15,7
@@
sub Include ($) {
local $@;
eval 'package PLP::Script; ' . PLP::source($PLP::file, 0, join ' ', (caller)[2,1]);
if ($@) {
local $@;
eval 'package PLP::Script; ' . PLP::source($PLP::file, 0, join ' ', (caller)[2,1]);
if ($@) {
- PLP::Functions::exit if $@ =~ /\cS\cT\cO\cP/;
+ PLP::Functions::exit
()
if $@ =~ /\cS\cT\cO\cP/;
PLP::error($@, 1);
}
}
PLP::error($@, 1);
}
}
@@
-67,9
+66,9
@@
sub Entity (@) {
return defined wantarray ? (wantarray ? @$ref : "@$ref") : undef;
}
return defined wantarray ? (wantarray ? @$ref : "@$ref") : undef;
}
-# Browsers do s/ /+/ - I don't care about RFC's, but I do care about real-life
-# situations.
sub DecodeURI (@) {
sub DecodeURI (@) {
+ # Browsers do s/ /+/ - I don't care about RFC's, but I do care about real-life
+ # situations.
my @r;
local $_;
for (@_) {
my @r;
local $_;
for (@_) {
@@
-85,6
+84,7
@@
sub DecodeURI (@) {
}
return defined wantarray ? (wantarray ? @r : "@r") : undef;
}
}
return defined wantarray ? (wantarray ? @r : "@r") : undef;
}
+
sub EncodeURI (@) {
my @r;
local $_;
sub EncodeURI (@) {
my @r;
local $_;
@@
-297,7
+297,7
@@
Adds a Set-Cookie header. STRING must be a valid Set-Cookie header value.
=head1 AUTHOR
=head1 AUTHOR
-Juerd Waalboer <juerd@
juerd.nl
>
+Juerd Waalboer <juerd@
cpan.org
>
=cut
=cut