diff options
Diffstat (limited to 'dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm')
| -rw-r--r-- | dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm index dbb0cae5e9..17fb5f9bac 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm @@ -13,7 +13,6 @@ our (@ISA, @EXPORT_OK); @EXPORT_OK = qw( standard_typemap_locations trim_whitespace - tidy_type C_string valid_proto_string process_typemaps @@ -41,7 +40,6 @@ ExtUtils::ParseXS::Utilities - Subroutines used with ExtUtils::ParseXS use ExtUtils::ParseXS::Utilities qw( standard_typemap_locations trim_whitespace - tidy_type C_string valid_proto_string process_typemaps @@ -175,45 +173,6 @@ sub trim_whitespace { $_[0] =~ s/^\s+|\s+$//go; } -=head2 C<tidy_type()> - -=over 4 - -=item * Purpose - -Rationalize any asterisks (C<*>) by joining them into bunches, removing -interior whitespace, then trimming leading and trailing whitespace. - -=item * Arguments - - ($ret_type) = tidy_type($_); - -String to be cleaned up. - -=item * Return Value - -String cleaned up. - -=back - -=cut - -sub tidy_type { - local ($_) = @_; - - # rationalise any '*' by joining them into bunches and removing whitespace - s#\s*(\*+)\s*#$1#g; - s#(\*+)# $1 #g; - - # change multiple whitespace into a single space - s/\s+/ /g; - - # trim leading & trailing whitespace - trim_whitespace($_); - - $_; -} - =head2 C<C_string()> =over 4 |