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
fix missinginclude tests
[perl/plp/.git]
/
lib
/
PLP
/
Functions.pm
diff --git
a/lib/PLP/Functions.pm
b/lib/PLP/Functions.pm
index 627d39071d0e99e15da7212e6c5d44965130794d..8c3886f795aa44ebf133ce5158a3eeae377d177b 100644
(file)
--- a/
lib/PLP/Functions.pm
+++ b/
lib/PLP/Functions.pm
@@
-3,7
+3,7
@@
package PLP::Functions;
use strict;
use warnings;
use strict;
use warnings;
-use
Exporter qw(import)
;
+use
base 'Exporter'
;
use Fcntl qw(:flock);
our $VERSION = '1.00';
use Fcntl qw(:flock);
our $VERSION = '1.00';
@@
-16,7
+16,7
@@
sub Include ($) {
$PLP::inA = 0;
$PLP::inB = 0;
local $@;
$PLP::inA = 0;
$PLP::inB = 0;
local $@;
- eval 'package PLP::Script; ' . PLP::source($PLP::file, 0, join ' ', (caller)[2,1]);
+ eval 'package PLP::Script;
no warnings;
' . PLP::source($PLP::file, 0, join ' ', (caller)[2,1]);
if ($@) {
PLP::Functions::exit() if $@ =~ /\cS\cT\cO\cP/;
PLP::error($@, 1);
if ($@) {
PLP::Functions::exit() if $@ =~ /\cS\cT\cO\cP/;
PLP::error($@, 1);