Make $' work past the 2**31 threshold

[perl5.git] / utils / shasum.PL

diff --git a/utils/shasum.PL b/utils/shasum.PL
index 51e6ead..852e6d2 100644 (file)
--- a/utils/shasum.PL
+++ b/utils/shasum.PL
@@ -35,7 +35,7 @@ use File::Spec;
 
 my $script = File::Spec->catfile(
             File::Spec->catdir(
-                File::Spec->updir, qw[ext Digest SHA bin]
+                File::Spec->updir, qw[cpan Digest-SHA]
             ), "shasum");
 
 if (open(IN, $script)) {