diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Class/Template.pm | 4 | ||||
-rw-r--r-- | lib/ExtUtils/Embed.pm | 4 | ||||
-rw-r--r-- | lib/ExtUtils/MM_VMS.pm | 22 | ||||
-rw-r--r-- | lib/ExtUtils/Mksymlists.pm | 4 | ||||
-rw-r--r-- | lib/File/Basename.pm | 4 | ||||
-rw-r--r-- | lib/File/stat.pm | 2 | ||||
-rw-r--r-- | lib/Time/gmtime.pm | 2 | ||||
-rw-r--r-- | lib/Time/localtime.pm | 2 | ||||
-rw-r--r-- | lib/Time/tm.pm | 2 | ||||
-rw-r--r-- | lib/User/grent.pm | 2 | ||||
-rw-r--r-- | lib/User/pwent.pm | 2 |
11 files changed, 40 insertions, 10 deletions
diff --git a/lib/Class/Template.pm b/lib/Class/Template.pm index 23a0d5ba83..38c2e98e66 100644 --- a/lib/Class/Template.pm +++ b/lib/Class/Template.pm @@ -45,6 +45,8 @@ This module uses perl5 classes to create nested data types. =head1 EXAMPLES +=over + =item * Example 1 use Class::Template; @@ -83,6 +85,8 @@ This module uses perl5 classes to create nested data types. bless $r; } +=back + =head1 NOTES Use '%' if the member should point to an anonymous hash. Use '@' if the diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm index 4d2ed6a77a..39d797e430 100644 --- a/lib/ExtUtils/Embed.pm +++ b/lib/ExtUtils/Embed.pm @@ -272,6 +272,8 @@ ccdlflags(), xsi_header(), xsi_protos(), xsi_body() =head1 FUNCTIONS +=over + =item xsinit() Generate C/C++ code for the XS initializer function. @@ -454,6 +456,8 @@ function to B<boot_ModuleName> for each @modules. B<xsinit()> uses the xsi_* functions to generate most of it's code. +=back + =head1 EXAMPLES For examples on how to use B<ExtUtils::Embed> for building C/C++ applications diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index aca41ea371..0e2897c1ad 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -36,6 +36,8 @@ the semantics. =head2 Methods always loaded +=over + =item eliminate_macros Expands MM[KS]/Make macros in a text string, using the contents of @@ -312,6 +314,7 @@ sub ext { ExtUtils::Liblist::ext(@_); } +=back =head2 SelfLoaded methods @@ -321,6 +324,8 @@ For overridden methods, documentation is limited to an explanation of why this method overrides the MM_Unix method; see the ExtUtils::MM_Unix documentation for more details. +=over + =item guess_name (override) Try to determine name of extension being built. We begin with the name @@ -1111,12 +1116,17 @@ default MM_Unix method. sub dist { my($self, %attribs) = @_; $attribs{VERSION} ||= $self->{VERSION_SYM}; + $attribs{NAME} ||= $self->{DISTNAME}; $attribs{ZIPFLAGS} ||= '-Vu'; $attribs{COMPRESS} ||= 'gzip'; $attribs{SUFFIX} ||= '-gz'; $attribs{SHAR} ||= 'vms_share'; $attribs{DIST_DEFAULT} ||= 'zipdist'; + # Sanitize these for use in $(DISTVNAME) filespec + $attribs{VERSION} =~ s/[^\w\$]/_/g; + $attribs{NAME} =~ s/[^\w\$]/_/g; + return ExtUtils::MM_Unix::dist($self,%attribs); } @@ -1745,28 +1755,28 @@ sub dist_core { my($self) = @_; q[ dist : $(DIST_DEFAULT) - $(NOECHO) $(PERL) -le "print 'Warning: $m older than $vf' if -e ($vf = '$(VERSION_FROM)') && -M $vf < -M ($m = '$(MAKEFILE)'" + $(NOECHO) $(PERL) -le "print 'Warning: $m older than $vf' if -e ($vf = '$(VERSION_FROM)') && -M $vf < -M ($m = '$(MAKEFILE)')" zipdist : $(DISTVNAME).zip $(NOECHO) $(NOOP) $(DISTVNAME).zip : distdir $(PREOP) - $(ZIP) "$(ZIPFLAGS)" $(MMS$TARGET) $(SRC) + $(ZIP) "$(ZIPFLAGS)" $(MMS$TARGET) [.$(DISTVNAME)...]*.*; $(RM_RF) $(DISTVNAME) $(POSTOP) $(DISTVNAME).tar$(SUFFIX) : distdir $(PREOP) $(TO_UNIX) - $(TAR) "$(TARFLAGS)" $(DISTVNAME).tar $(SRC) + $(TAR) "$(TARFLAGS)" $(DISTVNAME).tar [.$(DISTVNAME)] $(RM_RF) $(DISTVNAME) $(COMPRESS) $(DISTVNAME).tar $(POSTOP) shdist : distdir $(PREOP) - $(SHARE) $(SRC) $(DISTVNAME).share + $(SHAR) [.$(DISTVNAME...]*.*; $(DISTVNAME).share $(RM_RF) $(DISTVNAME) $(POSTOP) ]; @@ -2353,5 +2363,9 @@ sub nicetext { 1; +=back + +=cut + __END__ diff --git a/lib/ExtUtils/Mksymlists.pm b/lib/ExtUtils/Mksymlists.pm index eeed4bf794..4c6814cbcb 100644 --- a/lib/ExtUtils/Mksymlists.pm +++ b/lib/ExtUtils/Mksymlists.pm @@ -164,6 +164,8 @@ C<Mksymlists>, which is exported by default from C<ExtUtils::Mksymlists>. It takes one argument, a list of key-value pairs, in which the following keys are recognized: +=over + =item NAME This gives the name of the extension (I<e.g.> Tk::Canvas) for which @@ -217,6 +219,8 @@ extension itself (for instance, some linkers add an '_' to the name of the extension). If it is not specified, it is derived from the NAME attribute. It is presently used only by OS2. +=back + When calling C<Mksymlists>, one should always specify the NAME attribute. In most cases, this is all that's necessary. In the case of unusual extensions, however, the other attributes diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index dd7cdcf82e..6abfcd2cb4 100644 --- a/lib/File/Basename.pm +++ b/lib/File/Basename.pm @@ -95,6 +95,8 @@ would yield $dir eq 'Doc_Root:[Help]' $type eq '.Rnh' +=over + =item C<basename> The basename() routine returns the first element of the list produced @@ -116,6 +118,8 @@ cases. For example, for the input file specification F<lib/>, fileparse() considers the directory name to be F<lib/>, while dirname() considers the directory name to be F<.>). +=back + =cut require 5.002; diff --git a/lib/File/stat.pm b/lib/File/stat.pm index 014af60c5b..82cb3f6df3 100644 --- a/lib/File/stat.pm +++ b/lib/File/stat.pm @@ -50,7 +50,7 @@ __END__ =head1 NAME -File::stat.pm - by-name interface to Perl's built-in stat() functions +File::stat - by-name interface to Perl's built-in stat() functions =head1 SYNOPSIS diff --git a/lib/Time/gmtime.pm b/lib/Time/gmtime.pm index 35233f586a..353ade49ef 100644 --- a/lib/Time/gmtime.pm +++ b/lib/Time/gmtime.pm @@ -35,7 +35,7 @@ __END__ =head1 NAME -Time::gmtime.pm - by-name interface to Perl's built-in gmtime() function +Time::gmtime - by-name interface to Perl's built-in gmtime() function =head1 SYNOPSIS diff --git a/lib/Time/localtime.pm b/lib/Time/localtime.pm index 2e811e627f..8f7695b0f5 100644 --- a/lib/Time/localtime.pm +++ b/lib/Time/localtime.pm @@ -36,7 +36,7 @@ __END__ =head1 NAME -Time::localtime.pm - by-name interface to Perl's built-in localtime() function +Time::localtime - by-name interface to Perl's built-in localtime() function =head1 SYNOPSIS diff --git a/lib/Time/tm.pm b/lib/Time/tm.pm index d1df295683..7041432c0d 100644 --- a/lib/Time/tm.pm +++ b/lib/Time/tm.pm @@ -11,7 +11,7 @@ __END__ =head1 NAME -Time::tm.pm - internal object used by Time::gmtime and Time::localtime +Time::tm - internal object used by Time::gmtime and Time::localtime =head1 SYNOPSIS diff --git a/lib/User/grent.pm b/lib/User/grent.pm index 1185958430..3c4635ba2a 100644 --- a/lib/User/grent.pm +++ b/lib/User/grent.pm @@ -37,7 +37,7 @@ __END__ =head1 NAME -User::grent.pm - by-name interface to Perl's built-in getgr*() functions +User::grent - by-name interface to Perl's built-in getgr*() functions =head1 SYNOPSIS diff --git a/lib/User/pwent.pm b/lib/User/pwent.pm index 9f41fe9f39..a027fe627b 100644 --- a/lib/User/pwent.pm +++ b/lib/User/pwent.pm @@ -49,7 +49,7 @@ __END__ =head1 NAME -User::pwent.pm - by-name interface to Perl's built-in getpw*() functions +User::pwent - by-name interface to Perl's built-in getpw*() functions =head1 SYNOPSIS |