File tree 4 files changed +12
-3
lines changed
4 files changed +12
-3
lines changed Original file line number Diff line number Diff line change 1+ [Changes for 0.72 - Wed Jun 5 23:19:02 CST 2013]
2+
3+ * Only allow loading Digest::* from absolute paths in @INC,
4+ by ensuring they begin with \ or / characters.
5+
6+ Contributed by: Florian Weimer
7+
18[Changes for 0.71 - Tue Jun 4 18:24:10 CST 2013]
29
310* Constrain the user-specified digest name to /^\w+\d+$/.
Original file line number Diff line number Diff line change @@ -25,4 +25,4 @@ requires:
2525 perl : 5.005
2626resources :
2727 repository : http://github.com/audreyt/module-signature
28- version : 0.71
28+ version : 0.72
Original file line number Diff line number Diff line change @@ -245,6 +245,8 @@ SEE ALSO
245245
246246 Module::Install, ExtUtils::MakeMaker, Module::Build
247247
248+ Dist::Zilla::Plugin::Signature
249+
248250AUTHORS
249251 唐鳳 <cpan@audreyt.org>
250252
Original file line number Diff line number Diff line change 11package Module::Signature ;
2- $Module::Signature::VERSION = ' 0.71 ' ;
2+ $Module::Signature::VERSION = ' 0.72 ' ;
33
44use 5.005;
55use strict;
@@ -534,7 +534,7 @@ sub _digest_object {
534534 my ($algorithm ) = @_ ;
535535
536536 # Avoid loading Digest::* from relative paths in @INC.
537- local @INC = grep { / ^[^.] / } @INC ;
537+ local @INC = grep { m { ^[ \\ /] } } @INC ;
538538
539539 # Constrain algorithm name to be of form ABC123.
540540 my ($base , $variant ) = ($algorithm =~ / ^([_a-zA-Z]+)([0-9]+)$ /g )
You can’t perform that action at this time.
0 commit comments