This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
more whitespace removal (from Michael G Schwern)
authorGurusamy Sarathy <gsar@cpan.org>
Sat, 4 Mar 2000 04:27:51 +0000 (04:27 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 4 Mar 2000 04:27:51 +0000 (04:27 +0000)
p4raw-id: //depot/perl@5507

29 files changed:
ext/Data/Dumper/Dumper.pm
ext/Errno/Errno_pm.PL
ext/File/Glob/Glob.pm
ext/IO/lib/IO/Select.pm
ext/IO/lib/IO/Socket.pm
ext/IO/lib/IO/Socket/INET.pm
ext/IPC/SysV/Msg.pm
ext/IPC/SysV/Semaphore.pm
lib/CGI.pm
lib/CGI/Cookie.pm
lib/CGI/Fast.pm
lib/CGI/Push.pm
lib/Carp/Heavy.pm
lib/DB.pm
lib/Exporter/Heavy.pm
lib/File/DosGlob.pm
lib/File/Find.pm
lib/Getopt/Long.pm
lib/Math/Trig.pm
lib/Net/Ping.pm
lib/Net/netent.pm
lib/SelfLoader.pm
lib/Tie/Array.pm
lib/Tie/Handle.pm
lib/Tie/Scalar.pm
lib/Time/Local.pm
lib/filetest.pm
lib/overload.pm
x2p/s2p.PL

index 00f623d..c86299c 100644 (file)
@@ -889,7 +889,7 @@ distribution for more examples.)
     $boo = [ 1, [], "abcd", \*foo,
              {1 => 'a', 023 => 'b', 0x45 => 'c'}, 
              \\"p\q\'r", $foo, $fuz];
-    
+
     ########
     # simple usage
     ########
@@ -910,12 +910,12 @@ distribution for more examples.)
 
     $Data::Dumper::Useqq = 1;          # print strings in double quotes
     print Dumper($boo);
-    
-    
+
+
     ########
     # recursive structures
     ########
-    
+
     @c = ('c');
     $c = \@c;
     $b = {};
@@ -924,24 +924,24 @@ distribution for more examples.)
     $b->{b} = $a->[1];
     $b->{c} = $a->[2];
     print Data::Dumper->Dump([$a,$b,$c], [qw(a b c)]);
-    
-    
+
+
     $Data::Dumper::Purity = 1;         # fill in the holes for eval
     print Data::Dumper->Dump([$a, $b], [qw(*a b)]); # print as @a
     print Data::Dumper->Dump([$b, $a], [qw(*b a)]); # print as %b
-    
-    
+
+
     $Data::Dumper::Deepcopy = 1;       # avoid cross-refs
     print Data::Dumper->Dump([$b, $a], [qw(*b a)]);
-    
-    
+
+
     $Data::Dumper::Purity = 0;         # avoid cross-refs
     print Data::Dumper->Dump([$b, $a], [qw(*b a)]);
-    
+
     ########
     # deep structures
     ########
-    
+
     $a = "pearl";
     $b = [ $a ];
     $c = { 'b' => $b };
@@ -953,23 +953,23 @@ distribution for more examples.)
     $Data::Dumper::Maxdepth = 3;       # no deeper than 3 refs down
     print Data::Dumper->Dump([$f], [qw(f)]);
 
-    
+
     ########
     # object-oriented usage
     ########
-    
+
     $d = Data::Dumper->new([$a,$b], [qw(a b)]);
     $d->Seen({'*c' => $c});            # stash a ref without printing it
     $d->Indent(3);
     print $d->Dump;
     $d->Reset->Purity(0);              # empty the seen cache
     print join "----\n", $d->Dump;
-    
-    
+
+
     ########
     # persistence
     ########
-    
+
     package Foo;
     sub new { bless { state => 'awake' }, shift }
     sub Freeze {
@@ -978,7 +978,7 @@ distribution for more examples.)
        $s->{state} = 'asleep';
        return bless $s, 'Foo::ZZZ';
     }
-    
+
     package Foo::ZZZ;
     sub Thaw {
         my $s = shift;
@@ -986,7 +986,7 @@ distribution for more examples.)
        $s->{state} = 'awake';
        return bless $s, 'Foo';
     }
-    
+
     package Foo;
     use Data::Dumper;
     $a = Foo->new;
@@ -997,12 +997,12 @@ distribution for more examples.)
     print $c;
     $d = eval $c;
     print Data::Dumper->Dump([$d], ['d']);
-    
-    
+
+
     ########
     # symbol substitution (useful for recreating CODE refs)
     ########
-    
+
     sub foo { print "foo speaking\n" }
     *other = \&foo;
     $bar = [ \&other ];
index e81afb2..df68dc3 100644 (file)
@@ -291,7 +291,7 @@ C<Errno> also makes C<%!> magic such that each element of C<%!> has a
 non-zero value only if C<$!> is set to that value. For example:
 
     use Errno;
-    
+
     unless (open(FH, "/fangorn/spouse")) {
         if ($!{ENOENT}) {
             warn "Get a wife!\n";
index 3c3ea6c..0e1382b 100644 (file)
@@ -346,7 +346,7 @@ following copyright:
 
     Copyright (c) 1989, 1993 The Regents of the University of California.
     All rights reserved.
-      
+
     This code is derived from software contributed to Berkeley by
     Guido van Rossum.
 
index 7917102..1d8cda6 100644 (file)
@@ -347,7 +347,7 @@ listening for more connections on a listen socket
 
     $lsn = new IO::Socket::INET(Listen => 1, LocalPort => 8080);
     $sel = new IO::Select( $lsn );
-    
+
     while(@ready = $sel->can_read) {
         foreach $fh (@ready) {
             if($fh == $lsn) {
index 2b51dee..6884f02 100644 (file)
@@ -325,7 +325,7 @@ the socket will be in. All other arguments will be passed to the
 configuration method of the package for that domain, See below.
 
  NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
+
 As of VERSION 1.18 all IO::Socket objects have autoflush turned on
 by default. This was not the case with earlier releases.
 
index 696e988..27a3d4d 100644 (file)
@@ -347,7 +347,7 @@ Examples:
 
 
  NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
+
 As of VERSION 1.18 all IO::Socket objects have autoflush turned on
 by default. This was not the case with earlier releases.
 
index a739ca2..0993298 100644 (file)
@@ -113,15 +113,15 @@ IPC::Msg - SysV Msg IPC object class
 
     use IPC::SysV qw(IPC_PRIVATE S_IRWXU S_IRWXG S_IRWXO);
     use IPC::Msg;
-    
+
     $msg = new IPC::Msg(IPC_PRIVATE, S_IRWXU | S_IRWXG | S_IRWXO);
-    
+
     $msg->snd(pack("L a*",$msgtype,$msg));
-    
+
     $msg->rcv($buf,256);
-    
+
     $ds = $msg->stat;
-    
+
     $msg->remove;
 
 =head1 DESCRIPTION
index 464eb0b..faf7411 100644 (file)
@@ -155,19 +155,19 @@ IPC::Semaphore - SysV Semaphore IPC object class
 
     use IPC::SysV qw(IPC_PRIVATE S_IRWXU IPC_CREAT);
     use IPC::Semaphore;
-    
+
     $sem = new IPC::Semaphore(IPC_PRIVATE, 10, S_IRWXU | IPC_CREAT);
-    
+
     $sem->setall( (0) x 10);
-    
+
     @sem = $sem->getall;
-    
+
     $ncnt = $sem->getncnt;
-    
+
     $zcnt = $sem->getzcnt;
-    
+
     $ds = $sem->stat;
-    
+
     $sem->remove;
 
 =head1 DESCRIPTION
index a518598..a81ac07 100644 (file)
@@ -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>
index aac0fb0..bd3c3d8 100644 (file)
@@ -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
index 968bb1f..b485186 100644 (file)
@@ -170,5 +170,5 @@ This section intentionally left blank.
 =head1 SEE ALSO
 
 L<CGI::Carp>, L<CGI>
+
 =cut
index e4a66ae..80683a2 100644 (file)
@@ -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'),
index 553a0ed..5e3de49 100644 (file)
@@ -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.
index 2575423..711acc0 100644 (file)
--- a/lib/DB.pm
+++ b/lib/DB.pm
@@ -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)
index 1f9b432..6647f70 100644 (file)
@@ -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,
index 9a61f17..e5a2467 100644 (file)
@@ -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?>"
 
index 0fa0032..22a8ab3 100644 (file)
@@ -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 }, '.');
 
index 479efca..06fb196 100644 (file)
@@ -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.
 
index 68dcb94..492706c 100644 (file)
@@ -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);
 
index 0c8622e..2713383 100644 (file)
@@ -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);
 
index d8c094a..b21cd04 100644 (file)
@@ -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;
index ff441c7..99372f2 100644 (file)
@@ -121,9 +121,9 @@ SelfLoader - load functions only on demand
 
     package FOOBAR;
     use SelfLoader;
-    
+
     ... (initializing code)
-    
+
     __DATA__
     sub {....
 
index 32e269b..eb83aae 100644 (file)
@@ -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
index f64e4b2..cbac735 100644 (file)
@@ -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
index ef27dc1..1e2caee 100644 (file)
@@ -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';
 
index f3f6f54..a480884 100644 (file)
@@ -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;
index 65fc170..d08f9b4 100644 (file)
@@ -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
index 1d8f1a1..3750a43 100644 (file)
@@ -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;
index be092c2..4f7bf8c 100644 (file)
@@ -51,7 +51,7 @@ B<s2p [options] filename>
 
 =head1 DESCRIPTION
 
-I<S2p> takes a sed script specified on the command line (or from
+I<s2p> takes a sed script specified on the command line (or from
 standard input) and produces a comparable I<perl> script on the
 standard output.
 
@@ -93,7 +93,7 @@ $\ and chop.
 
 =head1 ENVIRONMENT
 
-S2p uses no environment variables.
+s2p uses no environment variables.
 
 =head1 AUTHOR
 
@@ -104,7 +104,7 @@ Larry Wall E<lt>F<larry@wall.org>E<gt>
 =head1 SEE ALSO
 
  perl  The perl compiler/interpreter
+
  a2p   awk to perl translator
 
 =head1 DIAGNOSTICS