Perl_scalar(): remove redundant switch labels

[perl5.git] / mkppport

diff --git a/mkppport b/mkppport
index 55a74fa..3a82109 100644 (file)
--- a/mkppport
+++ b/mkppport
@@ -58,7 +58,7 @@ unshift @INC, File::Spec->catdir($absroot, 'lib');
 
 # Change to Devel::PPPort directory, as it needs the stuff
 # from the parts/ directory
-chdir File::Spec->catdir($rootdir, 'cpan', 'Devel-PPPort');
+chdir File::Spec->catdir($rootdir, 'dist', 'Devel-PPPort');
 
 # Capture and remove temporary files
 my @unlink;
@@ -160,7 +160,8 @@ mkppport [B<--list>=I<file>] [B<--clean>]
 
 B<mkppport> generates a I<ppport.h> file using Devel::PPPort
 and distributes it to the various extension directories that
-need it to build.
+need it to build.  On certain Win32 builds, this script is not
+used and an alternative mechanism is used to create I<ppport.h>.
 
 =head1 OPTIONS