Skip to content

Commit cbd06b3

Browse files
committed
* 0.72 with an improved path checker from @fweimer
1 parent 1af7b1a commit cbd06b3

File tree

4 files changed

+12
-3
lines changed

4 files changed

+12
-3
lines changed

Diff for: Changes

+7
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,10 @@
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+$/.

Diff for: META.yml

+1-1
Original file line numberDiff line numberDiff line change
@@ -25,4 +25,4 @@ requires:
2525
perl: 5.005
2626
resources:
2727
repository: http://github.com/audreyt/module-signature
28-
version: 0.71
28+
version: 0.72

Diff for: README

+2
Original file line numberDiff line numberDiff line change
@@ -245,6 +245,8 @@ SEE ALSO
245245

246246
Module::Install, ExtUtils::MakeMaker, Module::Build
247247

248+
Dist::Zilla::Plugin::Signature
249+
248250
AUTHORS
249251
唐鳳 <cpan@audreyt.org>
250252

Diff for: lib/Module/Signature.pm

+2-2
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
package Module::Signature;
2-
$Module::Signature::VERSION = '0.71';
2+
$Module::Signature::VERSION = '0.72';
33

44
use 5.005;
55
use 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)

0 commit comments

Comments
 (0)