diff options
Diffstat (limited to 'dist')
-rw-r--r-- | dist/Cwd/lib/File/Spec/VMS.pm | 6 | ||||
-rw-r--r-- | dist/Cwd/lib/File/Spec/Win32.pm | 6 | ||||
-rw-r--r-- | dist/ExtUtils-ParseXS/lib/perlxs.pod | 19 | ||||
-rw-r--r-- | dist/Module-CoreList/corelist | 14 | ||||
-rw-r--r-- | dist/Safe/Safe.pm | 2 |
5 files changed, 24 insertions, 23 deletions
diff --git a/dist/Cwd/lib/File/Spec/VMS.pm b/dist/Cwd/lib/File/Spec/VMS.pm index 92f85a6253..f0ce56fe9b 100644 --- a/dist/Cwd/lib/File/Spec/VMS.pm +++ b/dist/Cwd/lib/File/Spec/VMS.pm @@ -341,9 +341,9 @@ sub file_name_is_absolute { =item splitpath (override) - ($volume,$directories,$file) = File::Spec->splitpath( $path ); - ($volume,$directories,$file) = File::Spec->splitpath( $path, - $no_file ); + ($volume,$directories,$file) = File::Spec->splitpath( $path ); + ($volume,$directories,$file) = File::Spec->splitpath( $path, + $no_file ); Passing a true value for C<$no_file> indicates that the path being split only contains directory components, even on systems where you diff --git a/dist/Cwd/lib/File/Spec/Win32.pm b/dist/Cwd/lib/File/Spec/Win32.pm index 763d09fb34..304ef896e0 100644 --- a/dist/Cwd/lib/File/Spec/Win32.pm +++ b/dist/Cwd/lib/File/Spec/Win32.pm @@ -189,9 +189,9 @@ sub canonpath { =item splitpath - ($volume,$directories,$file) = File::Spec->splitpath( $path ); - ($volume,$directories,$file) = File::Spec->splitpath( $path, - $no_file ); + ($volume,$directories,$file) = File::Spec->splitpath( $path ); + ($volume,$directories,$file) = File::Spec->splitpath( $path, + $no_file ); Splits a path into volume, directory, and filename portions. Assumes that the last file is a path unless the path ends in '\\', '\\.', '\\..' diff --git a/dist/ExtUtils-ParseXS/lib/perlxs.pod b/dist/ExtUtils-ParseXS/lib/perlxs.pod index 4d67aaf766..5952c95138 100644 --- a/dist/ExtUtils-ParseXS/lib/perlxs.pod +++ b/dist/ExtUtils-ParseXS/lib/perlxs.pod @@ -1691,7 +1691,7 @@ called and C<THIS> will be given as its parameter. The generated C++ code for will look like this: - color *THIS = ...; // Initialized as in typemap + color *THIS = ...; // Initialized as in typemap delete THIS; @@ -1711,22 +1711,23 @@ The following is an example of a typemap that could be used for this C++ example. TYPEMAP - color * O_OBJECT + color * O_OBJECT OUTPUT # The Perl object is blessed into 'CLASS', which should be a # char* having the name of the package for the blessing. O_OBJECT - sv_setref_pv( $arg, CLASS, (void*)$var ); + sv_setref_pv( $arg, CLASS, (void*)$var ); INPUT O_OBJECT - if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) ) - $var = ($type)SvIV((SV*)SvRV( $arg )); - else{ - warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" ); - XSRETURN_UNDEF; - } + if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) ) + $var = ($type)SvIV((SV*)SvRV( $arg )); + else{ + warn("${Package}::$func_name() -- " . + "$var is not a blessed SV reference"); + XSRETURN_UNDEF; + } =head2 Interface Strategy diff --git a/dist/Module-CoreList/corelist b/dist/Module-CoreList/corelist index 448b77bb4f..ec8c7d6878 100644 --- a/dist/Module-CoreList/corelist +++ b/dist/Module-CoreList/corelist @@ -10,13 +10,13 @@ See L<Module::CoreList> for one. =head1 SYNOPSIS - corelist -v - corelist [-a|-d] <ModuleName> | /<ModuleRegex>/ [<ModuleVersion>] ... - corelist [-v <PerlVersion>] [ <ModuleName> | /<ModuleRegex>/ ] ... - corelist [-r <PerlVersion>] ... - corelist --feature <FeatureName> [<FeatureName>] ... - corelist --diff PerlVersion PerlVersion - corelist --upstream <ModuleName> + corelist -v + corelist [-a|-d] <ModuleName> | /<ModuleRegex>/ [<ModuleVersion>] ... + corelist [-v <PerlVersion>] [ <ModuleName> | /<ModuleRegex>/ ] ... + corelist [-r <PerlVersion>] ... + corelist --feature <FeatureName> [<FeatureName>] ... + corelist --diff PerlVersion PerlVersion + corelist --upstream <ModuleName> =head1 OPTIONS diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm index bee3718593..4c624cdb78 100644 --- a/dist/Safe/Safe.pm +++ b/dist/Safe/Safe.pm @@ -528,7 +528,7 @@ outside the compartment) placed into the compartment. For example, $cpt = new Safe; sub wrapper { - # vet arguments and perform potentially unsafe operations + # vet arguments and perform potentially unsafe operations } $cpt->share('&wrapper'); |