Add a usage scenario and common use pattern to perldoc -f quotemeta

[p5sagit/p5-mst-13.2.git] / utils / shasum.PL

diff --git a/utils/shasum.PL b/utils/shasum.PL
index 06f5cfc..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)) {