projects
/
gitmo/Package-Stash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
don't allow invalid package names
[gitmo/Package-Stash.git]
/
lib
/
Package
/
Stash
/
PP.pm
diff --git
a/lib/Package/Stash/PP.pm
b/lib/Package/Stash/PP.pm
index
227970a
..
b3e3a7d
100644
(file)
--- a/
lib/Package/Stash/PP.pm
+++ b/
lib/Package/Stash/PP.pm
@@
-40,6
+40,9
@@
sub new {
. "currently support anonymous stashes. You should install "
. "Package::Stash::XS";
}
+ elsif ($package !~ /[0-9A-Z_a-z]+(?:::[0-9A-Z_a-z]+)*/) {
+ confess "$package is not a module name";
+ }
return bless {
'package' => $package,