diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/CGI.pm | 46 | ||||
| -rw-r--r-- | lib/CGI/Cookie.pm | 4 | ||||
| -rw-r--r-- | lib/CGI/Fast.pm | 2 | ||||
| -rw-r--r-- | lib/CGI/Push.pm | 2 | ||||
| -rw-r--r-- | lib/Carp/Heavy.pm | 2 | ||||
| -rw-r--r-- | lib/DB.pm | 6 | ||||
| -rw-r--r-- | lib/Exporter/Heavy.pm | 2 | ||||
| -rw-r--r-- | lib/File/DosGlob.pm | 6 | ||||
| -rw-r--r-- | lib/File/Find.pm | 2 | ||||
| -rw-r--r-- | lib/Getopt/Long.pm | 2 | ||||
| -rw-r--r-- | lib/Math/Trig.pm | 10 | ||||
| -rw-r--r-- | lib/Net/Ping.pm | 4 | ||||
| -rw-r--r-- | lib/Net/netent.pm | 16 | ||||
| -rw-r--r-- | lib/SelfLoader.pm | 4 | ||||
| -rw-r--r-- | lib/Tie/Array.pm | 8 | ||||
| -rw-r--r-- | lib/Tie/Handle.pm | 10 | ||||
| -rw-r--r-- | lib/Tie/Scalar.pm | 18 | ||||
| -rw-r--r-- | lib/Time/Local.pm | 2 | ||||
| -rw-r--r-- | lib/filetest.pm | 2 | ||||
| -rw-r--r-- | lib/overload.pm | 4 |
20 files changed, 76 insertions, 76 deletions
diff --git a/lib/CGI.pm b/lib/CGI.pm index a51859827a..a81ac07909 100644 --- a/lib/CGI.pm +++ b/lib/CGI.pm @@ -3830,7 +3830,7 @@ a short example of creating multiple session records: The file format used for save/restore is identical to that used by the Whitehead Genome Center's data exchange format "Boulderio", and can be manipulated and even databased using Boulderio utilities. See - + http://stein.cshl.org/boulder/ for further details. @@ -4069,7 +4069,7 @@ input, this should work: use CGI qw(-no_debug :standard); restore_parameters(join('&',@ARGV)); - + See the section on debugging for more details. =item -private_tempfiles @@ -4616,7 +4616,7 @@ and values of the associative array become the HTML tag's attributes: "Open a new frame"); <A HREF="fred.html",TARGET="_new">Open a new frame</A> - + You may dispense with the dashes in front of the attribute names if you prefer: @@ -4634,7 +4634,7 @@ Prior to CGI.pm version 2.41, providing an empty ('') string as an attribute argument was the same as providing undef. However, this has changed in order to accommodate those who want to create tags of the form <IMG ALT="">. The difference is shown in these two pieces of code: - + CODE RESULT img({alt=>undef}) <IMG ALT> img({alt=>''}) <IMT ALT=""> @@ -4768,7 +4768,7 @@ autoEscape() method with a false value immediately after creating the CGI object $query = new CGI; $query->autoEscape(undef); - + =head2 CREATING AN ISINDEX TAG @@ -4798,7 +4798,7 @@ default is to process the query with the current script. startform() will return a <FORM> tag with the optional method, action and form encoding that you specify. The defaults are: - + method: POST action: this script enctype: application/x-www-form-urlencoded @@ -5242,7 +5242,7 @@ handlers are called. print $query->checkbox_group(-name=>'group_name', -values=>['eenie','meenie','minie','moe'], -rows=2,-columns=>2); - + checkbox_group() creates a list of checkboxes that are related by the same name. @@ -5780,7 +5780,7 @@ documentation in Netscape's home pages for details =item 2. Specify the destination for the document in the HTTP header You may provide a B<-target> parameter to the header() method: - + print $q->header(-target=>'ResultsWindow'); This will tell the browser to load the output of your script into the @@ -5917,7 +5917,7 @@ name/value pairs formatted nicely as a nested list. This is useful for debugging purposes: print $query->dump - + Produces something that looks like: @@ -6162,7 +6162,7 @@ a second, and begins again. =over 4 =item multipart_init() - + multipart_init(-boundary=>$boundary); Initialize the multipart system. The -boundary argument specifies @@ -6379,9 +6379,9 @@ for suggestions and bug fixes. #!/usr/local/bin/perl - + use CGI; - + $query = new CGI; print $query->header; @@ -6391,35 +6391,35 @@ for suggestions and bug fixes. &do_work($query); &print_tail; print $query->end_html; - + sub print_prompt { my($query) = @_; - + print $query->startform; print "<EM>What's your name?</EM><BR>"; print $query->textfield('name'); print $query->checkbox('Not my real name'); - + print "<P><EM>Where can you find English Sparrows?</EM><BR>"; print $query->checkbox_group( -name=>'Sparrow locations', -values=>[England,France,Spain,Asia,Hoboken], -linebreak=>'yes', -defaults=>[England,Asia]); - + print "<P><EM>How far can they fly?</EM><BR>", $query->radio_group( -name=>'how far', -values=>['10 ft','1 mile','10 miles','real far'], -default=>'1 mile'); - + print "<P><EM>What's your favorite color?</EM> "; print $query->popup_menu(-name=>'Color', -values=>['black','brown','red','yellow'], -default=>'red'); - + print $query->hidden('Reference','Monty Python and the Holy Grail'); - + print "<P><EM>What have you got there?</EM><BR>"; print $query->scrolling_list( -name=>'possessions', @@ -6427,19 +6427,19 @@ for suggestions and bug fixes. 'A Sword','A Ticket'], -size=>5, -multiple=>'true'); - + print "<P><EM>Any parting comments?</EM><BR>"; print $query->textarea(-name=>'Comments', -rows=>10, -columns=>50); - + print "<P>",$query->reset; print $query->submit('Action','Shout'); print $query->submit('Action','Scream'); print $query->endform; print "<HR>\n"; } - + sub do_work { my($query) = @_; my(@values,$key); @@ -6452,7 +6452,7 @@ for suggestions and bug fixes. print join(", ",@values),"<BR>\n"; } } - + sub print_tail { print <<END; <HR> diff --git a/lib/CGI/Cookie.pm b/lib/CGI/Cookie.pm index aac0fb0ddc..bd3c3d8875 100644 --- a/lib/CGI/Cookie.pm +++ b/lib/CGI/Cookie.pm @@ -343,7 +343,7 @@ can iterate through the cookies this way: In a scalar context, fetch() returns a hash reference, which may be more efficient if you are manipulating multiple cookies. - + CGI.pm uses the URL escaping methods to save and restore reserved characters in its cookies. If you are trying to retrieve a cookie set by a foreign server, this escaping method may trip you up. Use raw_fetch() instead, which has the @@ -414,5 +414,5 @@ This section intentionally left blank. =head1 SEE ALSO L<CGI::Carp>, L<CGI> - + =cut diff --git a/lib/CGI/Fast.pm b/lib/CGI/Fast.pm index 968bb1f504..b4851862dc 100644 --- a/lib/CGI/Fast.pm +++ b/lib/CGI/Fast.pm @@ -170,5 +170,5 @@ This section intentionally left blank. =head1 SEE ALSO L<CGI::Carp>, L<CGI> - + =cut diff --git a/lib/CGI/Push.pm b/lib/CGI/Push.pm index e4a66aee72..80683a2e80 100644 --- a/lib/CGI/Push.pm +++ b/lib/CGI/Push.pm @@ -257,7 +257,7 @@ as shown below: h1('testing'), "This page called $counter times"; } - + sub my_last_page { header(-refresh=>'5; URL=http://somewhere.else/finished.html', -type=>'text/html'), diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm index 553a0edfcb..5e3de49418 100644 --- a/lib/Carp/Heavy.pm +++ b/lib/Carp/Heavy.pm @@ -11,7 +11,7 @@ Carp::Heavy - Carp guts =head1 DESCRIPTION No user-serviceable parts inside. - + =cut # This package is heavily used. Be small. Be fast. Be good. @@ -555,9 +555,9 @@ change) package CLIENT; use DB; @ISA = qw(DB); - + # these (inherited) methods can be called by the client - + CLIENT->register() # register a client package name CLIENT->done() # de-register from the debugging API CLIENT->skippkg('hide::hide') # ask DB not to stop in this package @@ -585,7 +585,7 @@ change) # These methods will be called at the appropriate times. # Stub versions provided do nothing. # None of these can block. - + CLIENT->init() # called when debug API inits itself CLIENT->stop(FILE,LINE) # when execution stops CLIENT->idle() # while stopped (can be a client event loop) diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm index 1f9b432514..6647f7075c 100644 --- a/lib/Exporter/Heavy.pm +++ b/lib/Exporter/Heavy.pm @@ -11,7 +11,7 @@ Exporter::Heavy - Exporter guts =head1 DESCRIPTION No user-serviceable parts inside. - + =cut # # We go to a lot of trouble not to 'require Carp' at file scope, diff --git a/lib/File/DosGlob.pm b/lib/File/DosGlob.pm index 9a61f171f6..e5a2467927 100644 --- a/lib/File/DosGlob.pm +++ b/lib/File/DosGlob.pm @@ -157,16 +157,16 @@ File::DosGlob - DOS like globbing and then some =head1 SYNOPSIS require 5.004; - + # override CORE::glob in current package use File::DosGlob 'glob'; - + # override CORE::glob in ALL packages (use with extreme caution!) use File::DosGlob 'GLOBAL_glob'; @perlfiles = glob "..\\pe?l/*.p?"; print <..\\pe?l/*.p?>; - + # from the command line (overrides only in main::) > perl -MFile::DosGlob=glob -e "print <../pe*/*p?>" diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 0fa0032206..22a8ab3aed 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -18,7 +18,7 @@ finddepth - traverse a directory structure depth-first use File::Find; finddepth(\&wanted, '/foo', '/bar'); sub wanted { ... } - + use File::Find; find({ wanted => \&process, follow => 1 }, '.'); diff --git a/lib/Getopt/Long.pm b/lib/Getopt/Long.pm index 479efcabe1..06fb1963ea 100644 --- a/lib/Getopt/Long.pm +++ b/lib/Getopt/Long.pm @@ -897,7 +897,7 @@ linkage specified in the HASH. The command line options are taken from array @ARGV. Upon completion of GetOptions, @ARGV will contain the rest (i.e. the non-options) of the command line. - + Each option specifier designates the name of the option, optionally followed by an argument specifier. diff --git a/lib/Math/Trig.pm b/lib/Math/Trig.pm index 68dcb94822..492706cd6a 100644 --- a/lib/Math/Trig.pm +++ b/lib/Math/Trig.pm @@ -132,11 +132,11 @@ Math::Trig - trigonometric functions =head1 SYNOPSIS use Math::Trig; - + $x = tan(0.9); $y = acos(3.7); $z = asin(2.4); - + $halfpi = pi/2; $rad = deg2rad(120); @@ -258,7 +258,7 @@ complex numbers as results because the C<Math::Complex> takes care of details like for example how to display complex numbers. For example: print asin(2), "\n"; - + should produce something like this (take or leave few last decimals): 1.5707963267949-1.31695789692482i @@ -272,10 +272,10 @@ and the imaginary part of approximately C<-1.317>. $radians = deg2rad($degrees); $radians = grad2rad($gradians); - + $degrees = rad2deg($radians); $degrees = grad2deg($gradians); - + $gradians = deg2grad($degrees); $gradians = rad2grad($radians); diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm index 0c8622e220..2713383a00 100644 --- a/lib/Net/Ping.pm +++ b/lib/Net/Ping.pm @@ -422,7 +422,7 @@ Net::Ping - check a remote host for reachability sleep(1); } $p->close(); - + $p = Net::Ping->new("tcp", 2); while ($stop_time > time()) { @@ -431,7 +431,7 @@ Net::Ping - check a remote host for reachability sleep(300); } undef($p); - + # For backward compatibility print "$host is alive.\n" if pingecho($host); diff --git a/lib/Net/netent.pm b/lib/Net/netent.pm index d8c094ae81..b21cd04664 100644 --- a/lib/Net/netent.pm +++ b/lib/Net/netent.pm @@ -120,26 +120,26 @@ This seems a bug, but here's how to deal with it: use strict; use Socket; use Net::netent; - + @ARGV = ('loopback') unless @ARGV; - + my($n, $net); - + for $net ( @ARGV ) { - + unless ($n = getnetbyname($net)) { warn "$0: no such net: $net\n"; next; } - + printf "\n%s is %s%s\n", $net, lc($n->name) eq lc($net) ? "" : "*really* ", $n->name; - + print "\taliases are ", join(", ", @{$n->aliases}), "\n" if @{$n->aliases}; - + # this is stupid; first, why is this not in binary? # second, why am i going through these convolutions # to make it looks right @@ -148,7 +148,7 @@ This seems a bug, but here's how to deal with it: shift @a while @a && $a[0] == 0; printf "\taddr is %s [%d.%d.%d.%d]\n", $n->net, @a; } - + if ($n = getnetbyaddr($n->net)) { if (lc($n->name) ne lc($net)) { printf "\tThat addr reverses to net %s!\n", $n->name; diff --git a/lib/SelfLoader.pm b/lib/SelfLoader.pm index ff441c72dd..99372f2630 100644 --- a/lib/SelfLoader.pm +++ b/lib/SelfLoader.pm @@ -121,9 +121,9 @@ SelfLoader - load functions only on demand package FOOBAR; use SelfLoader; - + ... (initializing code) - + __DATA__ sub {.... diff --git a/lib/Tie/Array.pm b/lib/Tie/Array.pm index 32e269b330..eb83aaee17 100644 --- a/lib/Tie/Array.pm +++ b/lib/Tie/Array.pm @@ -126,17 +126,17 @@ Tie::Array - base class for tied arrays package NewArray; use Tie::Array; @ISA = ('Tie::Array'); - + # mandatory methods sub TIEARRAY { ... } sub FETCH { ... } sub FETCHSIZE { ... } - + sub STORE { ... } # mandatory if elements writeable sub STORESIZE { ... } # mandatory if elements can be added/deleted sub EXISTS { ... } # mandatory if exists() expected to work sub DELETE { ... } # mandatory if delete() expected to work - + # optional methods - for efficiency sub CLEAR { ... } sub PUSH { ... } @@ -149,7 +149,7 @@ Tie::Array - base class for tied arrays package NewStdArray; use Tie::Array; - + @ISA = ('Tie::StdArray'); # all methods provided by default diff --git a/lib/Tie/Handle.pm b/lib/Tie/Handle.pm index f64e4b2a5b..cbac73535d 100644 --- a/lib/Tie/Handle.pm +++ b/lib/Tie/Handle.pm @@ -11,15 +11,15 @@ Tie::Handle, Tie::StdHandle - base class definitions for tied handles package NewHandle; require Tie::Handle; - + @ISA = (Tie::Handle); - + sub READ { ... } # Provide a needed method sub TIEHANDLE { ... } # Overrides inherited method - - + + package main; - + tie *FH, 'NewHandle'; =head1 DESCRIPTION diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm index ef27dc1398..1e2caee379 100644 --- a/lib/Tie/Scalar.pm +++ b/lib/Tie/Scalar.pm @@ -8,24 +8,24 @@ Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars package NewScalar; require Tie::Scalar; - + @ISA = (Tie::Scalar); - + sub FETCH { ... } # Provide a needed method sub TIESCALAR { ... } # Overrides inherited method - - + + package NewStdScalar; require Tie::Scalar; - + @ISA = (Tie::StdScalar); - + # All methods provided by default, so define only what needs be overridden sub FETCH { ... } - - + + package main; - + tie $new_scalar, 'NewScalar'; tie $new_std_scalar, 'NewStdScalar'; diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm index f3f6f542a6..a4808849b0 100644 --- a/lib/Time/Local.pm +++ b/lib/Time/Local.pm @@ -157,7 +157,7 @@ rather they didn't, you can explicitly import the timelocal_nocheck() and timegm_nocheck() functions. use Time::Local 'timelocal_nocheck'; - + { # The 365th day of 1999 print scalar localtime timelocal_nocheck 0,0,0,365,0,99; diff --git a/lib/filetest.pm b/lib/filetest.pm index 65fc1704f0..d08f9b4d48 100644 --- a/lib/filetest.pm +++ b/lib/filetest.pm @@ -5,7 +5,7 @@ package filetest; filetest - Perl pragma to control the filetest permission operators =head1 SYNOPSIS - + $can_perhaps_read = -r "file"; # use the mode bits { use filetest 'access'; # intuit harder diff --git a/lib/overload.pm b/lib/overload.pm index 1d8f1a15ad..3750a43168 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -1029,7 +1029,7 @@ circumscribed octagon using the above package: my $iter = 1; # 2**($iter+2) = 8 my $side = new symbolic 1; my $cnt = $iter; - + while ($cnt--) { $side = (sqrt(1 + $side**2) - 1)/$side; } @@ -1154,7 +1154,7 @@ Use this module like this: my $iter = new symbolic 2; # 16-gon my $side = new symbolic 1; my $cnt = $iter; - + while ($cnt) { $cnt = $cnt - 1; # Mutator `--' not implemented $side = (sqrt(1 + $side**2) - 1)/$side; |