diff options
-rw-r--r-- | Changes | 1 | ||||
-rw-r--r-- | lib/Package/Stash/PP.pm | 3 |
2 files changed, 4 insertions, 0 deletions
@@ -3,6 +3,7 @@ Revision history for Package-Stash {{$NEXT}} - bring the behavior of has_symbol for nonexistant scalars into line with the xs version + - invalid package names (for instance, Foo:Bar) are not allowed 0.31 2011-08-08 - fix ->add_symbol('$foo', qr/sdlfk/) on 5.12+ diff --git a/lib/Package/Stash/PP.pm b/lib/Package/Stash/PP.pm index 227970a..b3e3a7d 100644 --- 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, |