home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl501m.zip / patches / patch.1g < prev    next >
Text File  |  1995-05-31  |  66KB  |  2,450 lines
  1. # This is my patch  patch.1g for perl5.001.  See description below.
  2. #    Andy Dougherty        doughera@lafcol.lafayette.edu
  3. #
  4. # Please remove the following files before applying this patch.
  5. # (You can feed this patch to 'sh' to do so.)
  6. # 
  7. # These are now embedded in the appropriate .pm files.
  8. #
  9. rm -f pod/modpods/Abbrev.pod
  10. rm -f pod/modpods/AnyDBMFile.pod
  11. rm -f pod/modpods/AutoLoader.pod
  12. rm -f pod/modpods/AutoSplit.pod
  13. rm -f pod/modpods/Basename.pod
  14. rm -f pod/modpods/Benchmark.pod
  15. rm -f pod/modpods/Carp.pod
  16. rm -f pod/modpods/CheckTree.pod
  17. rm -f pod/modpods/Collate.pod
  18. rm -f pod/modpods/Config.pod
  19. rm -f pod/modpods/Cwd.pod
  20. rm -f pod/modpods/DB_File.pod
  21. rm -f pod/modpods/Dynaloader.pod
  22. rm -f pod/modpods/English.pod
  23. rm -f pod/modpods/Env.pod
  24. rm -f pod/modpods/Exporter.pod
  25. rm -f pod/modpods/Fcntl.pod
  26. rm -f pod/modpods/FileHandle.pod
  27. rm -f pod/modpods/Find.pod
  28. rm -f pod/modpods/Finddepth.pod
  29. rm -f pod/modpods/GetOptions.pod
  30. rm -f pod/modpods/Getopt.pod
  31. rm -f pod/modpods/MakeMaker.pod
  32. rm -f pod/modpods/Open2.pod
  33. rm -f pod/modpods/Open3.pod
  34. rm -f pod/modpods/POSIX.pod
  35. rm -f pod/modpods/Ping.pod
  36. rm -f pod/modpods/Socket.pod
  37. rm -f pod/modpods/integer.pod
  38. rm -f pod/modpods/less.pod
  39. rm -f pod/modpods/sigtrap.pod
  40. rm -f pod/modpods/strict.pod
  41. rm -f pod/modpods/subs.pod
  42.  
  43. # This directory should be empty now
  44. rmdir pod/modpods
  45. exit 0
  46.  
  47. This is my patch  patch.1g  for perl5.001.
  48.  
  49. This patch only includes updates to the lib/ directory and
  50. the removal of the pod/modpods.  The main things are the following:
  51.  
  52.     The modpods are now embedded in their corresponding .pm files.
  53.  
  54.     The Grand AutoLoader patch.
  55.  
  56.     Updates to lib/ExtUtils/xsubpp by Paul Marquess 
  57.     <pmarquess@bfsec.bt.co.uk>.
  58.  
  59.     Minor changes to a very few modules and pods.
  60.  
  61.  
  62. To apply, change to your perl directory, run the commands above, then
  63. apply with 
  64.     patch -p1 -N  < thispatch.
  65.  
  66. After you apply this patch, you should go on to apply patch.1h and
  67. patch.1i before reConfiguring and building.
  68.  
  69. Patch and enjoy,
  70.  
  71.     Andy Dougherty            doughera@lafcol.lafayette.edu
  72.     Dept. of Physics
  73.     Lafayette College, Easton PA
  74.  
  75. Here's the file-by-file description:
  76.  
  77. lib/AnyDBM_File.pm
  78.     Embedded pod.
  79.  
  80. lib/AutoLoader.pm
  81.     Grand AutoLoader patch.
  82.  
  83.     Embedded pod.
  84.  
  85. lib/AutoSplit.pm
  86.     Grand AutoLoader patch.
  87.  
  88.     Embedded pod.
  89.  
  90.     Skip pod sections when splitting .pm files.
  91.  
  92. lib/Benchmark.pm
  93. lib/Carp.pm
  94. lib/Cwd.pm
  95. lib/English.pm
  96.     Grand AutoLoader patch.
  97.  
  98.     Embedded pod.
  99.  
  100. lib/Exporter.pm
  101.     Grand AutoLoader patch.
  102.  
  103.     Embedded pod.
  104.  
  105.     Update comments to match behavior.
  106.  
  107. lib/ExtUtils/MakeMaker.pm
  108.     Include installation of .pod and .pm files.
  109.  
  110.     Space out documentation for better printing with pod2man.
  111.  
  112. lib/ExtUtils/xsubpp
  113.     Patches from Paul Marquess <pmarquess@bfsec.bt.co.uk>, 22 May 1995.
  114.     Now at version 1.4.
  115.  
  116. lib/File/Basename.pm
  117.     Embedded pod.
  118.  
  119. lib/File/CheckTree.pm
  120.     Embedded pod.
  121.  
  122. lib/File/Find.pm
  123.     Embedded pod.
  124.  
  125.     Included finddepth pod too.
  126.  
  127. lib/FileHandle.pm
  128.     Embedded pod.
  129.  
  130. lib/Getopt/Long.pm
  131.     Embedded pod.
  132.  
  133.     Fixed PERMUTE order bug.
  134.  
  135. lib/Getopt/Std.pm
  136.     Embedded pod.
  137.  
  138.     Caught accessing undefined element off end of @arg array.
  139.  
  140. lib/I18N/Collate.pm
  141. lib/IPC/Open2.pm
  142. lib/IPC/Open3.pm
  143. lib/Net/Ping.pm
  144.     Embedded pod.
  145.  
  146. lib/Term/Complete.pm
  147.     Embedded pod.
  148.  
  149.     Changed name from complete to Complete to match documentation and
  150.     exported name.
  151.  
  152. lib/Text/Abbrev.pm
  153.     Embedded pod.
  154.  
  155. lib/Text/Tabs.pm
  156.     Updated.
  157.  
  158. lib/integer.pm
  159. lib/less.pm
  160. lib/sigtrap.pm
  161. lib/strict.pm
  162. lib/subs.pm
  163.     Embedded pod.
  164.  
  165. Index: lib/AnyDBM_File.pm
  166. *** perl5.001f/lib/AnyDBM_File.pm    Tue Oct 18 12:34:25 1994
  167. --- perl5.001g/lib/AnyDBM_File.pm    Thu May 25 11:11:34 1995
  168. ***************
  169. *** 7,9 ****
  170. --- 7,92 ----
  171.   eval { require GDBM_File } ||
  172.   eval { require SDBM_File } ||
  173.   eval { require ODBM_File };
  174. + 
  175. + =head1 NAME
  176. + 
  177. + AnyDBM_File - provide framework for multiple DBMs
  178. + 
  179. + NDBM_File, ODBM_File, SDBM_File, GDBM_File - various DBM implementations
  180. + 
  181. + =head1 SYNOPSIS
  182. + 
  183. +     use AnyDBM_File;
  184. + 
  185. + =head1 DESCRIPTION
  186. + 
  187. + This module is a "pure virtual base class"--it has nothing of its own.
  188. + It's just there to inherit from one of the various DBM packages.  It
  189. + prefers ndbm for compatibility reasons with Perl 4, then Berkeley DB (See
  190. + L<DB_File>), GDBM, SDBM (which is always there--it comes with Perl), and
  191. + finally ODBM.   This way old programs that used to use NDBM via dbmopen()
  192. + can still do so, but new ones can reorder @ISA:
  193. + 
  194. +     @AnyDBM_File::ISA = qw(DB_File GDBM_File NDBM_File);
  195. + 
  196. + Note, however, that an explicit use overrides the specified order:
  197. + 
  198. +     use GDBM_File;
  199. +     @AnyDBM_File::ISA = qw(DB_File GDBM_File NDBM_File);
  200. + 
  201. + will only find GDBM_File.
  202. + 
  203. + Having multiple DBM implementations makes it trivial to copy database formats:
  204. + 
  205. +     use POSIX; use NDBM_File; use DB_File;
  206. +     tie %newhash,  DB_File, $new_filename, O_CREAT|O_RDWR;
  207. +     tie %oldhash,  NDBM_File, $old_filename, 1, 0;
  208. +     %newhash = %oldhash;
  209. + 
  210. + =head2 DBM Comparisons
  211. + 
  212. + Here's a partial table of features the different packages offer:
  213. + 
  214. +                          odbm    ndbm    sdbm    gdbm    bsd-db
  215. +              ----     ----    ----    ----    ------
  216. +  Linkage comes w/ perl   yes     yes     yes     yes     yes
  217. +  Src comes w/ perl       no      no      yes     no      no
  218. +  Comes w/ many unix os   yes     yes[0]  no      no      no
  219. +  Builds ok on !unix      ?       ?       yes     yes     ?
  220. +  Code Size               ?       ?       small   big     big
  221. +  Database Size           ?       ?       small   big?    ok[1]
  222. +  Speed                   ?       ?       slow    ok      fast
  223. +  FTPable                 no      no      yes     yes     yes
  224. +  Easy to build          N/A     N/A      yes     yes     ok[2]
  225. +  Size limits             1k      4k      1k[3]   none    none
  226. +  Byte-order independent  no      no      no      no      yes
  227. +  Licensing restrictions  ?       ?       no      yes     no
  228. + 
  229. + 
  230. + =over 4
  231. + 
  232. + =item [0] 
  233. + 
  234. + on mixed universe machines, may be in the bsd compat library,
  235. + which is often shunned.
  236. + 
  237. + =item [1] 
  238. + 
  239. + Can be trimmed if you compile for one access method.
  240. + 
  241. + =item [2] 
  242. + 
  243. + See L<DB_File>. 
  244. + Requires symbolic links.  
  245. + 
  246. + =item [3] 
  247. + 
  248. + By default, but can be redefined.
  249. + 
  250. + =back
  251. + 
  252. + =head1 SEE ALSO
  253. + 
  254. + dbm(3), ndbm(3), DB_File(3)
  255. + 
  256. + =cut
  257. Index: lib/AutoLoader.pm
  258. *** perl5.001f/lib/AutoLoader.pm    Fri Jan 13 16:43:36 1995
  259. --- perl5.001g/lib/AutoLoader.pm    Thu May 25 14:33:45 1995
  260. ***************
  261. *** 1,6 ****
  262. --- 1,24 ----
  263.   package AutoLoader;
  264.   use Carp;
  265.   
  266. + =head1 NAME
  267. + 
  268. + AutoLoader - load functions only on demand
  269. + 
  270. + =head1 SYNOPSIS
  271. + 
  272. +     package FOOBAR;
  273. +     use Exporter;
  274. +     use AutoLoader;
  275. +     @ISA = (Exporter, AutoLoader);
  276. + 
  277. + =head1 DESCRIPTION
  278. + 
  279. + This module tells its users that functions in the FOOBAR package are to be
  280. + autoloaded from F<auto/$AUTOLOAD.al>.  See L<perlsub/"Autoloading">.
  281. + 
  282. + =cut
  283. + 
  284.   AUTOLOAD {
  285.       my $name = "auto/$AUTOLOAD.al";
  286.       $name =~ s#::#/#g;
  287. ***************
  288. *** 23,28 ****
  289. --- 41,64 ----
  290.       }
  291.       }
  292.       goto &$AUTOLOAD;
  293. + }
  294. +                             
  295. + sub import
  296. + {
  297. +  my ($callclass, $callfile, $callline,$path,$callpack) = caller(0);
  298. +  ($callpack = $callclass) =~ s#::#/#;
  299. +  if (defined($path = $INC{$callpack . '.pm'}))
  300. +   {
  301. +    if ($path =~ s#^(.*)$callpack\.pm$#$1auto/$callpack/autosplit.ix# && -e $path) 
  302. +     {
  303. +      eval {require $path}; 
  304. +      carp $@ if ($@);  
  305. +     } 
  306. +    else 
  307. +     {
  308. +      croak "Have not loaded $callpack.pm";
  309. +     }
  310. +   }
  311.   }
  312.   
  313.   1;
  314. Index: lib/AutoSplit.pm
  315. *** perl5.001f/lib/AutoSplit.pm    Wed Feb  8 19:11:12 1995
  316. --- perl5.001g/lib/AutoSplit.pm    Thu May 25 14:55:47 1995
  317. ***************
  318. *** 10,15 ****
  319. --- 10,28 ----
  320.   @EXPORT = qw(&autosplit &autosplit_lib_modules);
  321.   @EXPORT_OK = qw($Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime);
  322.   
  323. + =head1 NAME
  324. + 
  325. + AutoSplit - split a package for autoloading
  326. + 
  327. + =head1 DESCRIPTION
  328. + 
  329. + This function will split up your program into files that the AutoLoader
  330. + module can handle.  Normally only used to build autoloading Perl library
  331. + modules, especially extensions (like POSIX).  You should look at how
  332. + they're built out for details.
  333. + 
  334. + =cut
  335. + 
  336.   # for portability warn about names longer than $maxlen
  337.   $Maxlen  = 8;    # 8 for dos, 11 (14-".al") for SYSVR3
  338.   $Verbose = 1;    # 0=none, 1=minimal, 2=list .al files
  339. ***************
  340. *** 83,89 ****
  341. --- 96,108 ----
  342.       open(IN, "<$filename") || die "AutoSplit: Can't open $filename: $!\n";
  343.       my($pm_mod_time) = (stat($filename))[9];
  344.       my($autoloader_seen) = 0;
  345. +     my($in_pod) = 0;
  346.       while (<IN>) {
  347. +     # Skip pod text.
  348. +     $in_pod = 1 if /^=/;
  349. +     $in_pod = 0 if /^=cut/;
  350. +     next if ($in_pod || /^=cut/);
  351. + 
  352.       # record last package name seen
  353.       $package = $1 if (m/^\s*package\s+([\w:]+)\s*;/);
  354.       ++$autoloader_seen if m/^\s*(use|require)\s+AutoLoader\b/;
  355. ***************
  356. *** 199,205 ****
  357.           next if $names{substr($subname,0,$maxflen-3)};
  358.           my($file) = "$autodir/$modpname/$_";
  359.           print "  deleting $file\n" if ($Verbose>=2);
  360. !         unlink $file or carp "Unable to delete $file: $!";
  361.       }
  362.       closedir(OUTDIR);
  363.       }
  364. --- 218,226 ----
  365.           next if $names{substr($subname,0,$maxflen-3)};
  366.           my($file) = "$autodir/$modpname/$_";
  367.           print "  deleting $file\n" if ($Verbose>=2);
  368. !         my($deleted,$thistime);  # catch all versions on VMS
  369. !         do { $deleted += ($thistime = unlink $file) } while ($thistime);
  370. !         carp "Unable to delete $file: $!" unless $deleted;
  371.       }
  372.       closedir(OUTDIR);
  373.       }
  374. ***************
  375. *** 207,213 ****
  376. --- 228,236 ----
  377.       open(TS,">$al_idx_file") or
  378.       carp "AutoSplit: unable to create timestamp file ($al_idx_file): $!";
  379.       print TS "# Index created by AutoSplit for $filename (file acts as timestamp)\n";
  380. +     print TS "package $package;\n";
  381.       print TS map("sub $_ ;\n", @subnames);
  382. +     print TS "1;\n";
  383.       close(TS);
  384.   
  385.       check_unique($package, $Maxlen, 1, @names);
  386. Index: lib/Benchmark.pm
  387. *** perl5.001f/lib/Benchmark.pm    Tue Oct 18 12:34:33 1994
  388. --- perl5.001g/lib/Benchmark.pm    Thu May 25 11:15:48 1995
  389. ***************
  390. *** 1,5 ****
  391. --- 1,166 ----
  392.   package Benchmark;
  393.   
  394. + =head1 NAME
  395. + 
  396. + Benchmark - benchmark running times of code
  397. + 
  398. + timethis - run a chunk of code several times
  399. + 
  400. + timethese - run several chunks of code several times
  401. + 
  402. + timeit - run a chunk of code and see how long it goes
  403. + 
  404. + =head1 SYNOPSIS
  405. + 
  406. +     timethis ($count, "code");
  407. + 
  408. +     timethese($count, {
  409. +     'Name1' => '...code1...',
  410. +     'Name2' => '...code2...',
  411. +     });
  412. + 
  413. +     $t = timeit($count, '...other code...')
  414. +     print "$count loops of other code took:",timestr($t),"\n";
  415. + 
  416. + =head1 DESCRIPTION
  417. + 
  418. + The Benchmark module encapsulates a number of routines to help you
  419. + figure out how long it takes to execute some code.
  420. + 
  421. + =head2 Methods
  422. + 
  423. + =over 10
  424. + 
  425. + =item new
  426. + 
  427. + Returns the current time.   Example:
  428. + 
  429. +     use Benchmark;
  430. +     $t0 = new Benchmark;
  431. +     # ... your code here ...
  432. +     $t1 = new Benchmark;
  433. +     $td = timediff($t1, $t0);
  434. +     print "the code took:",timestr($dt),"\n";
  435. + 
  436. + =item debug
  437. + 
  438. + Enables or disable debugging by setting the C<$Benchmark::Debug> flag:
  439. + 
  440. +     debug Benchmark 1; 
  441. +     $t = timeit(10, ' 5 ** $Global ');
  442. +     debug Benchmark 0; 
  443. + 
  444. + =back
  445. + 
  446. + =head2 Standard Exports
  447. + 
  448. + The following routines will be exported into your namespace 
  449. + if you use the Benchmark module:
  450. + 
  451. + =over 10
  452. + 
  453. + =item timeit(COUNT, CODE)
  454. + 
  455. + Arguments: COUNT is the number of time to run the loop, and 
  456. + the second is the code to run.  CODE may be a string containing the code,
  457. + a reference to the function to run, or a reference to a hash containing 
  458. + keys which are names and values which are more CODE specs.
  459. + 
  460. + Side-effects: prints out noise to standard out.
  461. + 
  462. + Returns: a Benchmark object.  
  463. + 
  464. + =item timethis
  465. + 
  466. + =item timethese
  467. + 
  468. + =item timediff
  469. + 
  470. + =item timestr
  471. + 
  472. + =back
  473. + 
  474. + =head2 Optional Exports
  475. + 
  476. + The following routines will be exported into your namespace
  477. + if you specifically ask that they be imported:
  478. + 
  479. + =over 10
  480. + 
  481. + clearcache
  482. + 
  483. + clearallcache
  484. + 
  485. + disablecache
  486. + 
  487. + enablecache
  488. + 
  489. + =back
  490. + 
  491. + =head1 NOTES
  492. + 
  493. + The data is stored as a list of values from the time and times
  494. + functions: 
  495. + 
  496. +       ($real, $user, $system, $children_user, $children_system)
  497. + 
  498. + in seconds for the whole loop (not divided by the number of rounds).
  499. + 
  500. + The timing is done using time(3) and times(3).
  501. + 
  502. + Code is executed in the caller's package.
  503. + 
  504. + Enable debugging by:  
  505. + 
  506. +     $Benchmark::debug = 1;
  507. + 
  508. + The time of the null loop (a loop with the same
  509. + number of rounds but empty loop body) is subtracted
  510. + from the time of the real loop.
  511. + 
  512. + The null loop times are cached, the key being the
  513. + number of rounds. The caching can be controlled using
  514. + calls like these:
  515. + 
  516. +     clearcache($key); 
  517. +     clearallcache();
  518. + 
  519. +     disablecache(); 
  520. +     enablecache();
  521. + 
  522. + =head1 INHERITANCE
  523. + 
  524. + Benchmark inherits from no other class, except of course
  525. + for Exporter.
  526. + 
  527. + =head1 CAVEATS
  528. + 
  529. + The real time timing is done using time(2) and
  530. + the granularity is therefore only one second.
  531. + 
  532. + Short tests may produce negative figures because perl
  533. + can appear to take longer to execute the empty loop 
  534. + than a short test; try: 
  535. + 
  536. +     timethis(100,'1');
  537. + 
  538. + The system time of the null loop might be slightly
  539. + more than the system time of the loop with the actual
  540. + code and therefore the difference might end up being < 0.
  541. + 
  542. + More documentation is needed :-( especially for styles and formats.
  543. + 
  544. + =head1 AUTHORS
  545. + 
  546. + Jarkko Hietaniemi <Jarkko.Hietaniemi@hut.fi>,
  547. + Tim Bunce <Tim.Bunce@ig.co.uk>
  548. + 
  549. + =head1 MODIFICATION HISTORY
  550. + 
  551. + September 8th, 1994; by Tim Bunce.
  552. + 
  553. + =cut
  554. + 
  555.   # Purpose: benchmark running times of code.
  556.   #
  557.   #
  558. Index: lib/Carp.pm
  559. *** perl5.001f/lib/Carp.pm    Sun Mar 12 21:41:15 1995
  560. --- perl5.001g/lib/Carp.pm    Thu May 25 11:16:07 1995
  561. ***************
  562. *** 1,5 ****
  563. --- 1,29 ----
  564.   package Carp;
  565.   
  566. + =head1 NAME
  567. + 
  568. + carp - warn of errors (from perspective of caller)
  569. + 
  570. + croak - die of errors (from perspective of caller)
  571. + 
  572. + confess - die of errors with stack backtrace
  573. + 
  574. + =head1 SYNOPSIS
  575. + 
  576. +     use Carp;
  577. +     croak "We're outta here!";
  578. + 
  579. + =head1 DESCRIPTION
  580. + 
  581. + The Carp routines are useful in your own modules because
  582. + they act like die() or warn(), but report where the error
  583. + was in the code they were called from.  Thus if you have a 
  584. + routine Foo() that has a carp() in it, then the carp() 
  585. + will report the error as occurring where Foo() was called, 
  586. + not where carp() was called.
  587. + 
  588. + =cut
  589. + 
  590.   # This package implements handy routines for modules that wish to throw
  591.   # exceptions outside of the current package.
  592.   
  593. Index: lib/Cwd.pm
  594. *** perl5.001f/lib/Cwd.pm    Mon Mar  6 22:19:33 1995
  595. --- perl5.001g/lib/Cwd.pm    Thu May 25 11:16:34 1995
  596. ***************
  597. *** 3,8 ****
  598. --- 3,37 ----
  599.   require Exporter;
  600.   use Config;
  601.   
  602. + =head1 NAME
  603. + 
  604. + getcwd - get pathname of current working directory
  605. + 
  606. + =head1 SYNOPSIS
  607. + 
  608. +     require Cwd;
  609. +     $dir = Cwd::getcwd();
  610. + 
  611. +     use Cwd;
  612. +     $dir = getcwd();
  613. + 
  614. +     use Cwd 'chdir';
  615. +     chdir "/tmp";
  616. +     print $ENV{'PWD'};
  617. + 
  618. + =head1 DESCRIPTION
  619. + 
  620. + The getcwd() function re-implements the getcwd(3) (or getwd(3)) functions
  621. + in Perl.  If you ask to override your chdir() built-in function, then your
  622. + PWD environment variable will be kept up to date.  (See
  623. + L<perlsub/Overriding builtin functions>.)
  624. + 
  625. + The fastgetcwd() function looks the same as getcwd(), but runs faster.
  626. + It's also more dangerous because you might conceivably chdir() out of a
  627. + directory that you can't chdir() back into.
  628. + 
  629. + =cut
  630. + 
  631.   @ISA = qw(Exporter);
  632.   @EXPORT = qw(getcwd fastcwd);
  633.   @EXPORT_OK = qw(chdir);
  634. Index: lib/English.pm
  635. *** perl5.001f/lib/English.pm    Tue Feb 21 19:39:05 1995
  636. --- perl5.001g/lib/English.pm    Thu May 25 11:17:06 1995
  637. ***************
  638. *** 3,8 ****
  639. --- 3,34 ----
  640.   require Exporter;
  641.   @ISA = (Exporter);
  642.   
  643. + =head1 NAME
  644. + 
  645. + English - use nice English (or awk) names for ugly punctuation variables
  646. + 
  647. + =head1 SYNOPSIS
  648. + 
  649. +     use English;
  650. +     ...
  651. +     if ($ERRNO =~ /denied/) { ... }
  652. + 
  653. + =head1 DESCRIPTION
  654. + 
  655. + This module provides aliases for the built-in variables whose
  656. + names no one seems to like to read.  Variables with side-effects
  657. + which get triggered just by accessing them (like $0) will still 
  658. + be affected.
  659. + 
  660. + For those variables that have an B<awk> version, both long
  661. + and short English alternatives are provided.  For example, 
  662. + the C<$/> variable can be referred to either $RS or 
  663. + $INPUT_RECORD_SEPARATOR if you are using the English module.
  664. + 
  665. + See L<perlvar> for a complete list of these.
  666. + 
  667. + =cut
  668. + 
  669.   local $^W = 0;
  670.   
  671.   # Grandfather $NAME import
  672. Index: lib/Exporter.pm
  673. *** perl5.001f/lib/Exporter.pm    Sun Mar 12 21:39:16 1995
  674. --- perl5.001g/lib/Exporter.pm    Thu May 25 11:17:47 1995
  675. ***************
  676. *** 2,32 ****
  677.   
  678.   =head1 Comments
  679.   
  680. ! If the first entry in an import list begins with /, ! or : then
  681. ! treat the list as a series of specifications which either add to
  682. ! or delete from the list of names to import. They are processed
  683. ! left to right. Specifications are in the form:
  684.   
  685. -     [!]/pattern/    All names in @EXPORT and @EXPORT_OK which match
  686.       [!]name         This name only
  687. -     [!]:tag         All names in $EXPORT_TAGS{":tag"}
  688.       [!]:DEFAULT     All names in @EXPORT
  689.   
  690. ! e.g., Foo.pm defines:
  691.   
  692.       @EXPORT      = qw(A1 A2 A3 A4 A5);
  693.       @EXPORT_OK   = qw(B1 B2 B3 B4 B5);
  694. !     %EXPORT_TAGS = (':T1' => [qw(A1 A2 B1 B2)], ':T2' => [qw(A1 A2 B3 B4)]);
  695.   
  696.       Note that you cannot use tags in @EXPORT or @EXPORT_OK.
  697.       Names in EXPORT_TAGS must also appear in @EXPORT or @EXPORT_OK.
  698.   
  699.   Application says:
  700.   
  701. !     use Module qw(:T2 !B3 A3);
  702.       use Socket qw(!/^[AP]F_/ !SOMAXCONN !SOL_SOCKET);
  703.       use POSIX  qw(/^S_/ acos asin atan /^E/ !/^EXIT/);
  704.   
  705.   =cut
  706.   
  707.   require 5.001;
  708. --- 2,41 ----
  709.   
  710.   =head1 Comments
  711.   
  712. ! If the first entry in an import list begins with !, : or / then the
  713. ! list is treated as a series of specifications which either add to or
  714. ! delete from the list of names to import. They are processed left to
  715. ! right. Specifications are in the form:
  716.   
  717.       [!]name         This name only
  718.       [!]:DEFAULT     All names in @EXPORT
  719. +     [!]:tag         All names in $EXPORT_TAGS{tag} anonymous list
  720. +     [!]/pattern/    All names in @EXPORT and @EXPORT_OK which match
  721.   
  722. ! A leading ! indicates that matching names should be deleted from the
  723. ! list of names to import.  If the first specification is a deletion it
  724. ! is treated as though preceded by :DEFAULT. If you just want to import
  725. ! extra names in addition to the default set you will still need to
  726. ! include :DEFAULT explicitly.
  727. ! 
  728. ! e.g., Module.pm defines:
  729.   
  730.       @EXPORT      = qw(A1 A2 A3 A4 A5);
  731.       @EXPORT_OK   = qw(B1 B2 B3 B4 B5);
  732. !     %EXPORT_TAGS = (T1 => [qw(A1 A2 B1 B2)], T2 => [qw(A1 A2 B3 B4)]);
  733.   
  734.       Note that you cannot use tags in @EXPORT or @EXPORT_OK.
  735.       Names in EXPORT_TAGS must also appear in @EXPORT or @EXPORT_OK.
  736.   
  737.   Application says:
  738.   
  739. !     use Module qw(:DEFAULT :T2 !B3 A3);
  740.       use Socket qw(!/^[AP]F_/ !SOMAXCONN !SOL_SOCKET);
  741.       use POSIX  qw(/^S_/ acos asin atan /^E/ !/^EXIT/);
  742.   
  743. + You can set C<$Exporter::Verbose=1;> to see how the specifications are
  744. + being processed and what is actually being imported into modules.
  745. + 
  746.   =cut
  747.   
  748.   require 5.001;
  749. ***************
  750. *** 110,116 ****
  751.           }
  752.           }
  753.       }
  754. !     die "Can't continue with import errors.\n" if $oops;
  755.       }
  756.       else {
  757.       @imports = @exports;
  758. --- 119,125 ----
  759.           }
  760.           }
  761.       }
  762. !     Carp::croak("Can't continue with import errors.\n") if $oops;
  763.       }
  764.       else {
  765.       @imports = @exports;
  766. Index: lib/ExtUtils/MakeMaker.pm
  767. *** perl5.001f/lib/ExtUtils/MakeMaker.pm    Tue Apr 18 09:51:17 1995
  768. --- perl5.001g/lib/ExtUtils/MakeMaker.pm    Tue May 30 14:56:48 1995
  769. ***************
  770. *** 1,6 ****
  771.   package ExtUtils::MakeMaker;
  772.   
  773. ! $Version = 4.094; # Last edited 17 Apr 1995 by Andy Dougherty
  774.   
  775.   use Config;
  776.   use Carp;
  777. --- 1,6 ----
  778.   package ExtUtils::MakeMaker;
  779.   
  780. ! $Version = 4.095; # Last edited 17 Apr 1995 by Andy Dougherty
  781.   
  782.   use Config;
  783.   use Carp;
  784. ***************
  785. *** 835,841 ****
  786.   }
  787.   
  788.   
  789. ! sub init_dirscan {    # --- File and Directory Lists (.xs .pm etc)
  790.   
  791.       my($name, %dir, %xs, %c, %h, %ignore, %pl_files);
  792.       local(%pm); #the sub in find() has to see this hash
  793. --- 835,841 ----
  794.   }
  795.   
  796.   
  797. ! sub init_dirscan {    # --- File and Directory Lists (.xs .pm .pod etc)
  798.   
  799.       my($name, %dir, %xs, %c, %h, %ignore, %pl_files);
  800.       local(%pm); #the sub in find() has to see this hash
  801. ***************
  802. *** 853,859 ****
  803.           $c{$name} = 1;
  804.       } elsif ($name =~ /\.h$/){
  805.           $h{$name} = 1;
  806. !     } elsif ($name =~ /\.p[ml]$/){
  807.           $pm{$name} = "\$(INST_LIBDIR)/$name";
  808.       } elsif ($name =~ /\.PL$/ && $name ne "Makefile.PL") {
  809.           ($pl_files{$name} = $name) =~ s/\.PL$// ;
  810. --- 853,859 ----
  811.           $c{$name} = 1;
  812.       } elsif ($name =~ /\.h$/){
  813.           $h{$name} = 1;
  814. !     } elsif ($name =~ /\.(p[ml]|pod)$/){
  815.           $pm{$name} = "\$(INST_LIBDIR)/$name";
  816.       } elsif ($name =~ /\.PL$/ && $name ne "Makefile.PL") {
  817.           ($pl_files{$name} = $name) =~ s/\.PL$// ;
  818. ***************
  819. *** 2336,2362 ****
  820. --- 2336,2384 ----
  821.   =head1 MODIFICATION HISTORY
  822.   
  823.   v1, August 1994; by Andreas Koenig. Based on Andy Dougherty's Makefile.SH.
  824. + 
  825.   v2, September 1994 by Tim Bunce.
  826. + 
  827.   v3.0 October  1994 by Tim Bunce.
  828. + 
  829.   v3.1 November 11th 1994 by Tim Bunce.
  830. + 
  831.   v3.2 November 18th 1994 by Tim Bunce.
  832. + 
  833.   v3.3 November 27th 1994 by Andreas Koenig.
  834. + 
  835.   v3.4 December  7th 1994 by Andreas Koenig and Tim Bunce.
  836. + 
  837.   v3.5 December 15th 1994 by Tim Bunce.
  838. + 
  839.   v3.6 December 15th 1994 by Tim Bunce.
  840. + 
  841.   v3.7 December 30th 1994 By Tim Bunce
  842. + 
  843.   v3.8 January  17th 1995 By Andreas Koenig and Tim Bunce
  844. + 
  845.   v3.9 January 19th 1995 By Tim Bunce
  846. + 
  847.   v3.10 January 23rd 1995 By Tim Bunce
  848. + 
  849.   v3.11 January 24th 1995 By Andreas Koenig
  850. + 
  851.   v4.00 January 24th 1995 By Tim Bunce
  852. + 
  853.   v4.01 January 25th 1995 By Tim Bunce
  854. + 
  855.   v4.02 January 29th 1995 By Andreas Koenig
  856. + 
  857.   v4.03 January 30th 1995 By Andreas Koenig
  858. + 
  859.   v4.04 Februeary 5th 1995 By Andreas Koenig
  860. + 
  861.   v4.05 February 8th 1995 By Andreas Koenig
  862. + 
  863.   v4.06 February 10th 1995 By Andreas Koenig
  864. + 
  865.   v4.061 February 12th 1995 By Andreas Koenig
  866. + 
  867.   v4.08 - 4.085  February 14th-21st 1995 by Andreas Koenig
  868.   
  869.   Introduces EXE_FILES and INST_EXE for installing executable scripts 
  870. ***************
  871. *** 2384,2390 ****
  872.   old_extliblist() code deleted, new_extliblist() renamed to extliblist().
  873.   
  874.   Improved algorithm in extliblist, that returns ('','','') if no
  875. ! library has been found, even if a -L directory has been found.
  876.   
  877.   Fixed a bug that didn't allow lib/ directory work as documented.
  878.   
  879. --- 2406,2412 ----
  880.   old_extliblist() code deleted, new_extliblist() renamed to extliblist().
  881.   
  882.   Improved algorithm in extliblist, that returns ('','','') if no
  883. ! library has been found, even if a C<-L> directory has been found.
  884.   
  885.   Fixed a bug that didn't allow lib/ directory work as documented.
  886.   
  887. ***************
  888. *** 2436,2442 ****
  889.   
  890.   Another attempt to fix writedoc() from Dean Roehrich.
  891.   
  892. ! v4.092 April 11 1994 by Andreas Koenig
  893.   
  894.   Fixed a docu bug in hint file description. Added printing of a warning
  895.   from eval in the hintfile section if the eval has errors.  Moved
  896. --- 2458,2464 ----
  897.   
  898.   Another attempt to fix writedoc() from Dean Roehrich.
  899.   
  900. ! v4.092 April 11 1995 by Andreas Koenig
  901.   
  902.   Fixed a docu bug in hint file description. Added printing of a warning
  903.   from eval in the hintfile section if the eval has errors.  Moved
  904. ***************
  905. *** 2456,2462 ****
  906.   
  907.   Minor cosmetics.
  908.   
  909. ! v4.093 April 12 1994 by Andy Dougherty
  910.   
  911.   Rename distclean target to plain dist.  Insert a dummy distclean
  912.   target that's the same as realclean.  This is more consistent with the
  913. --- 2478,2484 ----
  914.   
  915.   Minor cosmetics.
  916.   
  917. ! v4.093 April 12 1995 by Andy Dougherty
  918.   
  919.   Rename distclean target to plain dist.  Insert a dummy distclean
  920.   target that's the same as realclean.  This is more consistent with the
  921. ***************
  922. *** 2468,2476 ****
  923.   Include Tim's suggestions about $verbose and more careful substitution
  924.   of $(CC) for $Config{'cc'}.
  925.   
  926. ! v4.094 April 12 1994 by Andy Dougherty
  927.   
  928.   Include Andreas' improvement of $(CC) detection.
  929.   
  930.   =head1 NOTES
  931.   
  932. --- 2490,2504 ----
  933.   Include Tim's suggestions about $verbose and more careful substitution
  934.   of $(CC) for $Config{'cc'}.
  935.   
  936. ! v4.094 April 12 1995 by Andy Dougherty
  937.   
  938.   Include Andreas' improvement of $(CC) detection.
  939. + 
  940. + v4.095 May 30 1995 by Andy Dougherty
  941. + 
  942. + Include installation of .pod and .pm files.
  943. + 
  944. + Space out documentation for better printing with pod2man.
  945.   
  946.   =head1 NOTES
  947.   
  948. Index: lib/ExtUtils/xsubpp
  949. *** perl5.001f/lib/ExtUtils/xsubpp    Mon Mar  6 19:59:27 1995
  950. --- perl5.001g/lib/ExtUtils/xsubpp    Fri May 26 15:24:22 1995
  951. ***************
  952. *** 50,61 ****
  953. --- 50,146 ----
  954.   
  955.   Larry Wall
  956.   
  957. + =head1 MODIFICATION HISTORY
  958. + 
  959. + =head2 1.0
  960. + 
  961. + I<xsubpp> as released with Perl 5.000
  962. + 
  963. + =head2 1.1
  964. + 
  965. + I<xsubpp> as released with Perl 5.001
  966. + 
  967. + =head2 1.2 
  968. + 
  969. + Changes by Paul Marquess <pmarquess@bfsec.bt.co.uk>, 22 May 1995.
  970. + 
  971. + =over 5
  972. + 
  973. + =item 1.
  974. + 
  975. + Added I<xsubpp> version number for the first time. As previous releases
  976. + of I<xsubpp> did not have a formal version number, a numbering scheme
  977. + has been applied retrospectively.
  978. + 
  979. + =item 2.
  980. + 
  981. + If OUTPUT: is being used to specify output parameters and RETVAL is
  982. + also to be returned, it is now no longer necessary for the user to
  983. + ensure that RETVAL is specified last.
  984. + 
  985. + =item 3.
  986. + 
  987. + The I<xsubpp> version number, the .xs filename and a time stamp are
  988. + written to the generated .c file as a comment.
  989. + 
  990. + =item 4.
  991. + 
  992. + When I<xsubpp> is parsing the definition of both the input parameters
  993. + and the OUTPUT parameters, any duplicate definitions will be noted and
  994. + ignored.
  995. + 
  996. + =item 5.
  997. + 
  998. + I<xsubpp> is slightly more forgiving with extra whitespace.
  999. + 
  1000. + =back
  1001. + 
  1002. + =head2 1.3 
  1003. + 
  1004. + Changes by Paul Marquess <pmarquess@bfsec.bt.co.uk>, 23 May 1995.
  1005. + 
  1006. + =over 5
  1007. + 
  1008. + =item 1.
  1009. + 
  1010. + More whitespace restrictions have been relaxed. In particular some
  1011. + cases where a tab character was used to delimit fields has been
  1012. + removed. In these cases any whitespace will now suffice.
  1013. + 
  1014. + The specific places where changes have been made are in the TYPEMAP
  1015. + section of a typemap file and the input and OUTPUT: parameter
  1016. + declarations sections in a .xs file.
  1017. + 
  1018. + =item 2.
  1019. + 
  1020. + More error checking added.
  1021. + 
  1022. + Before processing each typemap file I<xsubpp> now checks that it is a
  1023. + text file. If not an warning will be displayed. In addition, a warning
  1024. + will be displayed if it is not possible to open the typemap file.
  1025. + 
  1026. + In the TYPEMAP section of a typemap file, an error will be raised if
  1027. + the line does not have 2 columns.
  1028. + 
  1029. + When parsing input parameter declarations check that there is at least
  1030. + a type and name pair.
  1031. + 
  1032. + =back
  1033. + 
  1034. + =head2 1.4 
  1035. + 
  1036. + When parsing the OUTPUT arguments check that they are all present in
  1037. + the corresponding input argument definitions.
  1038. + 
  1039.   =head1 SEE ALSO
  1040.   
  1041.   perl(1)
  1042.   
  1043.   =cut
  1044.   
  1045. + # Global Constants
  1046. + $XSUBPP_version = "1.4" ;
  1047. + 
  1048.   $usage = "Usage: xsubpp [-C++] [-except] [-typemap typemap] file.xs\n";
  1049.   
  1050.   SWITCH: while ($ARGV[0] =~ s/^-//) {
  1051. ***************
  1052. *** 75,80 ****
  1053. --- 160,186 ----
  1054.       or ($dir, $filename) = ('.', $ARGV[0]);
  1055.   chdir($dir);
  1056.   
  1057. + sub TrimWhitespace
  1058. + {
  1059. +     $_[0] =~ s/^\s+|\s+$//go ;
  1060. + }
  1061. + 
  1062. + sub TidyType
  1063. + {
  1064. +     local ($_) = @_ ;
  1065. + 
  1066. +     # rationalise any '*' by joining them into bunches and removing whitespace
  1067. +     s#\s*(\*+)\s*#$1#g;
  1068. + 
  1069. +     # change multiple whitespace into a single space
  1070. +     s/\s+/ /g ;
  1071. +     
  1072. +     # trim leading & trailing whitespace
  1073. +     TrimWhitespace($_) ;
  1074. + 
  1075. +     $_ ;
  1076. + }
  1077. + 
  1078.   $typemap = shift @ARGV;
  1079.   foreach $typemap (@tm) {
  1080.       die "Can't find $typemap in $pwd\n" unless -r $typemap;
  1081. ***************
  1082. *** 83,89 ****
  1083.                   ../../lib/ExtUtils/typemap ../../../typemap ../../typemap
  1084.                   ../typemap typemap);
  1085.   foreach $typemap (@tm) {
  1086. !     open(TYPEMAP, $typemap) || next;
  1087.       $mode = Typemap;
  1088.       $current = \$junk;
  1089.       while (<TYPEMAP>) {
  1090. --- 189,200 ----
  1091.                   ../../lib/ExtUtils/typemap ../../../typemap ../../typemap
  1092.                   ../typemap typemap);
  1093.   foreach $typemap (@tm) {
  1094. !     next unless -e $typemap ;
  1095. !     # skip directories, binary files etc.
  1096. !     warn("Warning: ignoring non-text typemap file '$typemap'\n"), next 
  1097. !     unless -T $typemap ;
  1098. !     open(TYPEMAP, $typemap) 
  1099. !     or warn ("Warning: could not open typemap file '$typemap': $!\n"), next;
  1100.       $mode = Typemap;
  1101.       $current = \$junk;
  1102.       while (<TYPEMAP>) {
  1103. ***************
  1104. *** 93,100 ****
  1105.       if (/^TYPEMAP\s*$/) { $mode = Typemap, next }
  1106.       if ($mode eq Typemap) {
  1107.           chop;
  1108. !         ($typename, $kind) = split(/\t+/, $_, 2);
  1109. !         $type_kind{$typename} = $kind if $kind ne '';
  1110.       }
  1111.       elsif ($mode eq Input) {
  1112.           if (/^\s/) {
  1113. --- 204,219 ----
  1114.       if (/^TYPEMAP\s*$/) { $mode = Typemap, next }
  1115.       if ($mode eq Typemap) {
  1116.           chop;
  1117. !         my $line = $_ ;
  1118. !             TrimWhitespace($_) ;
  1119. !         # skip blank lines and comment lines
  1120. !         next if /^$/ or /^#/ ;
  1121. !         my @words = split (' ') ;
  1122. !         blurt("Error: File '$typemap' Line $. '$line' TYPEMAP entry needs 2 columns\n"), next 
  1123. !         unless @words >= 2 ;
  1124. !         my $kind = pop @words ;
  1125. !             TrimWhitespace($kind) ;
  1126. !         $type_kind{TidyType("@words")} = $kind ;
  1127.       }
  1128.       elsif ($mode eq Input) {
  1129.           if (/^\s/) {
  1130. ***************
  1131. *** 132,138 ****
  1132.       $text;
  1133.   }
  1134.   
  1135. ! open(F, $filename) || die "cannot open $filename\n";
  1136.   
  1137.   while (<F>) {
  1138.       last if ($Module, $foo, $Package, $foo1, $Prefix) =
  1139. --- 251,269 ----
  1140.       $text;
  1141.   }
  1142.   
  1143. ! # Identify the version of xsubpp used
  1144. ! $TimeStamp = localtime ;
  1145. ! print <<EOM ;
  1146. ! /* 
  1147. !  * This file was generated automatically by xsubpp version $XSUBPP_version
  1148. !  * from $filename on $TimeStamp
  1149. !  *
  1150. !  */
  1151. !  
  1152. ! EOM
  1153. !  
  1154. ! 
  1155. ! open(F, $filename) or die "cannot open $filename: $!\n";
  1156.   
  1157.   while (<F>) {
  1158.       last if ($Module, $foo, $Package, $foo1, $Prefix) =
  1159. ***************
  1160. *** 196,204 ****
  1161.       undef($class);
  1162.       undef($static);
  1163.       undef($elipsis);
  1164.   
  1165.       # extract return type, function name and arguments
  1166. !     $ret_type = shift(@line);
  1167.       if ($ret_type =~ /^BOOT:/) {
  1168.           push (@BootCode, @line, "", "") ;
  1169.           next ;
  1170. --- 327,337 ----
  1171.       undef($class);
  1172.       undef($static);
  1173.       undef($elipsis);
  1174. +     undef($wantRETVAL) ;
  1175. +     undef(%arg_list) ;
  1176.   
  1177.       # extract return type, function name and arguments
  1178. !     $ret_type = TidyType(shift(@line));
  1179.       if ($ret_type =~ /^BOOT:/) {
  1180.           push (@BootCode, @line, "", "") ;
  1181.           next ;
  1182. ***************
  1183. *** 325,335 ****
  1184.           $_ = shift(@line);
  1185.           last if /^\s*NOT_IMPLEMENTED_YET/;
  1186.           last if /^\s*(PPCODE|CODE|OUTPUT|CLEANUP|CASE)\s*:/;
  1187. !         ($var_type, $var_name, $var_init) =
  1188. !             /\s*([^\t]+)\s*([^\s=]+)\s*(=.*)?/;
  1189. !         # Catch common errors. More error checking required here.
  1190. !         blurt("Error: no tab in $pname argument declaration '$_'\n")
  1191. !             unless (m/\S+\s*\t\s*\S+/);
  1192.           # catch C style argument declaration (this could be made alowable syntax)
  1193.           warn("Warning: ignored semicolon in $pname argument declaration '$_'\n")
  1194.               if ($var_name =~ s/;//g); # eg SV *<tab>name;
  1195. --- 458,477 ----
  1196.           $_ = shift(@line);
  1197.           last if /^\s*NOT_IMPLEMENTED_YET/;
  1198.           last if /^\s*(PPCODE|CODE|OUTPUT|CLEANUP|CASE)\s*:/;
  1199. ! 
  1200. !                 TrimWhitespace($_) ;
  1201. !                 # skip blank lines 
  1202. !                 next if /^$/ ;
  1203. !         my $line = $_ ;
  1204. !           # check for optional initialisation code
  1205. !         my $var_init = $1 if s/\s*(=.*)$// ;
  1206. ! 
  1207. !                 my @words = split (' ') ;
  1208. !                 blurt("Error: invalid argument declaration '$line'"), next
  1209. !                     unless @words >= 2 ;
  1210. !                 my $var_name = pop @words ;
  1211. !         my $var_type = "@words" ;
  1212. ! 
  1213.           # catch C style argument declaration (this could be made alowable syntax)
  1214.           warn("Warning: ignored semicolon in $pname argument declaration '$_'\n")
  1215.               if ($var_name =~ s/;//g); # eg SV *<tab>name;
  1216. ***************
  1217. *** 340,345 ****
  1218. --- 482,492 ----
  1219.               $var_name =~ s/^&//;
  1220.               $var_addr{$var_name} = 1;
  1221.           }
  1222. + 
  1223. +             # Check for duplicate definitions
  1224. +             blurt ("Error: duplicate definition of argument '$var_name' ignored"), next
  1225. +             if $arg_list{$var_name} ++  ;
  1226. + 
  1227.           $thisdone |= $var_name eq "THIS";
  1228.           $retvaldone |= $var_name eq "RETVAL";
  1229.           $var_types{$var_name} = $var_type;
  1230. ***************
  1231. *** 425,453 ****
  1232.                   $func_name = $2;
  1233.               }
  1234.               print "$func_name($func_args);\n";
  1235. !             &generate_output($ret_type, 0, "RETVAL")
  1236. !                 unless $ret_type eq "void";
  1237.           }
  1238.       }
  1239.   
  1240.       # do output variables
  1241.       if (/^\s*OUTPUT\s*:/) {
  1242.           while (@line) {
  1243.               $_ = shift(@line);
  1244.               last if /^\s*CLEANUP\s*:/;
  1245. !             s/^\s+//;
  1246. !             ($outarg, $outcode) = split(/\t+/);
  1247.               if ($outcode) {
  1248.                   print "\t$outcode\n";
  1249.               } else {
  1250. -                 die "$outarg not an argument"
  1251. -                     unless defined($args_match{$outarg});
  1252.                   $var_num = $args_match{$outarg};
  1253.                   &generate_output($var_types{$outarg}, $var_num,
  1254.                       $outarg); 
  1255.               }
  1256.           }
  1257.       }
  1258.       # do cleanup
  1259.       if (/^\s*CLEANUP\s*:/) {
  1260.           while (@line) {
  1261. --- 572,619 ----
  1262.                   $func_name = $2;
  1263.               }
  1264.               print "$func_name($func_args);\n";
  1265. !             $wantRETVAL = 1 
  1266. !                     unless $ret_type eq "void";
  1267.           }
  1268.       }
  1269.   
  1270.       # do output variables
  1271.       if (/^\s*OUTPUT\s*:/) {
  1272. +         my $gotRETVAL ;
  1273. +         my %outargs ;
  1274.           while (@line) {
  1275.               $_ = shift(@line);
  1276.               last if /^\s*CLEANUP\s*:/;
  1277. !             TrimWhitespace($_) ;
  1278. !             next if /^$/ ;
  1279. !             my ($outarg, $outcode) = /^(\S+)\s*(.*)/ ;
  1280. !             if (!$gotRETVAL and $outarg eq 'RETVAL') {
  1281. !                 # deal with RETVAL last
  1282. !                 push(@line, $_) ;
  1283. !                 $gotRETVAL = 1 ;
  1284. !                 undef ($wantRETVAL) ;
  1285. !                 next ;
  1286. !             }
  1287. !             blurt ("Error: duplicate OUTPUT argument '$outarg' ignored"), next
  1288. !                 if $outargs{$outarg} ++ ;
  1289. !             blurt ("Error: OUTPUT $outarg not an argument"), next
  1290. !                 unless defined($args_match{$outarg});
  1291. !             blurt("Error: No input definition for OUTPUT argument '$outarg' - ignored"), next
  1292. !                 unless defined $var_types{$outarg} ;
  1293.               if ($outcode) {
  1294.                   print "\t$outcode\n";
  1295.               } else {
  1296.                   $var_num = $args_match{$outarg};
  1297.                   &generate_output($var_types{$outarg}, $var_num,
  1298.                       $outarg); 
  1299.               }
  1300.           }
  1301.       }
  1302. + 
  1303. +     # all OUTPUT done, so now push the return value on the stack
  1304. +     &generate_output($ret_type, 0, "RETVAL")
  1305. +          if $wantRETVAL ;
  1306. + 
  1307.       # do cleanup
  1308.       if (/^\s*CLEANUP\s*:/) {
  1309.           while (@line) {
  1310. ***************
  1311. *** 533,539 ****
  1312.       local($ntype);
  1313.       local($tk);
  1314.   
  1315. !     blurt("'$type' not in typemap"), return unless defined($type_kind{$type});
  1316.       ($ntype = $type) =~ s/\s*\*/Ptr/g;
  1317.       $subtype = $ntype;
  1318.       $subtype =~ s/Ptr$//;
  1319. --- 699,706 ----
  1320.       local($ntype);
  1321.       local($tk);
  1322.   
  1323. !     $type = TidyType($type) ;
  1324. !     blurt("Error: '$type' not in typemap"), return unless defined($type_kind{$type});
  1325.       ($ntype = $type) =~ s/\s*\*/Ptr/g;
  1326.       $subtype = $ntype;
  1327.       $subtype =~ s/Ptr$//;
  1328. ***************
  1329. *** 570,579 ****
  1330.       local($argoff) = $num - 1;
  1331.       local($ntype);
  1332.   
  1333.       if ($type =~ /^array\(([^,]*),(.*)\)/) {
  1334.           print "\tsv_setpvn($arg, (char *)$var, $2 * sizeof($1)), XFree((char *)$var);\n";
  1335.       } else {
  1336. !         blurt("'$type' not in typemap"), return
  1337.           unless defined($type_kind{$type});
  1338.           ($ntype = $type) =~ s/\s*\*/Ptr/g;
  1339.           $ntype =~ s/\(\)//g;
  1340. --- 737,747 ----
  1341.       local($argoff) = $num - 1;
  1342.       local($ntype);
  1343.   
  1344. +     $type = TidyType($type) ;
  1345.       if ($type =~ /^array\(([^,]*),(.*)\)/) {
  1346.           print "\tsv_setpvn($arg, (char *)$var, $2 * sizeof($1)), XFree((char *)$var);\n";
  1347.       } else {
  1348. !         blurt("Error: '$type' not in typemap"), return
  1349.           unless defined($type_kind{$type});
  1350.           ($ntype = $type) =~ s/\s*\*/Ptr/g;
  1351.           $ntype =~ s/\(\)//g;
  1352. Index: lib/File/Basename.pm
  1353. *** perl5.001f/lib/File/Basename.pm    Sun Mar 12 03:14:03 1995
  1354. --- perl5.001g/lib/File/Basename.pm    Thu May 25 15:10:28 1995
  1355. ***************
  1356. *** 1,5 ****
  1357. --- 1,116 ----
  1358.   package File::Basename;
  1359.   
  1360. + =head1 NAME
  1361. + 
  1362. + Basename - parse file specifications
  1363. + 
  1364. + fileparse - split a pathname into pieces
  1365. + 
  1366. + basename - extract just the filename from a path
  1367. + 
  1368. + dirname - extract just the directory from a path
  1369. + 
  1370. + =head1 SYNOPSIS
  1371. + 
  1372. +     use File::Basename;
  1373. + 
  1374. +     ($name,$path,$suffix) = fileparse($fullname,@suffixlist)
  1375. +     fileparse_set_fstype($os_string);
  1376. +     $basename = basename($fullname,@suffixlist);
  1377. +     $dirname = dirname($fullname);
  1378. + 
  1379. +     ($name,$path,$suffix) = fileparse("lib/File/Basename.pm","\.pm");
  1380. +     fileparse_set_fstype("VMS");
  1381. +     $basename = basename("lib/File/Basename.pm",".pm");
  1382. +     $dirname = dirname("lib/File/Basename.pm");
  1383. + 
  1384. + =head1 DESCRIPTION
  1385. + 
  1386. + These routines allow you to parse file specifications into useful
  1387. + pieces using the syntax of different operating systems.
  1388. + 
  1389. + =over 4
  1390. + 
  1391. + =item fileparse_set_fstype
  1392. + 
  1393. + You select the syntax via the routine fileparse_set_fstype().
  1394. + If the argument passed to it contains one of the substrings
  1395. + "VMS", "MSDOS", or "MacOS", the file specification syntax of that
  1396. + operating system is used in future calls to fileparse(),
  1397. + basename(), and dirname().  If it contains none of these
  1398. + substrings, UNIX syntax is used.  This pattern matching is
  1399. + case-insensitive.  If you've selected VMS syntax, and the file
  1400. + specification you pass to one of these routines contains a "/",
  1401. + they assume you are using UNIX emulation and apply the UNIX syntax
  1402. + rules instead, for that function call only.
  1403. + 
  1404. + If you haven't called fileparse_set_fstype(), the syntax is chosen
  1405. + by examining the "osname" entry from the C<Config> package
  1406. + according to these rules.
  1407. + 
  1408. + =item fileparse
  1409. + 
  1410. + The fileparse() routine divides a file specification into three
  1411. + parts: a leading B<path>, a file B<name>, and a B<suffix>.  The
  1412. + B<path> contains everything up to and including the last directory
  1413. + separator in the input file specification.  The remainder of the input
  1414. + file specification is then divided into B<name> and B<suffix> based on
  1415. + the optional patterns you specify in C<@suffixlist>.  Each element of
  1416. + this list is interpreted as a regular expression, and is matched
  1417. + against the end of B<name>.  If this succeeds, the matching portion of
  1418. + B<name> is removed and prepended to B<suffix>.  By proper use of
  1419. + C<@suffixlist>, you can remove file types or versions for examination.
  1420. + 
  1421. + You are guaranteed that if you concatenate B<path>, B<name>, and
  1422. + B<suffix> together in that order, the result will be identical to the
  1423. + input file specification.
  1424. + 
  1425. + =back
  1426. + 
  1427. + =head1 EXAMPLES
  1428. + 
  1429. + Using UNIX file syntax:
  1430. + 
  1431. +     ($base,$path,$type) = fileparse('/virgil/aeneid/draft.book7', 
  1432. +                     '\.book\d+');
  1433. + 
  1434. + would yield
  1435. + 
  1436. +     $base eq 'draft'
  1437. +     $path eq '/virgil/aeneid',
  1438. +     $tail eq '.book7'
  1439. + 
  1440. + Similarly, using VMS syntax:
  1441. + 
  1442. +     ($name,$dir,$type) = fileparse('Doc_Root:[Help]Rhetoric.Rnh',
  1443. +                    '\..*');
  1444. + 
  1445. + would yield
  1446. + 
  1447. +     $name eq 'Rhetoric'
  1448. +     $dir  eq 'Doc_Root:[Help]'
  1449. +     $type eq '.Rnh'
  1450. + 
  1451. + =item C<basename>
  1452. + 
  1453. + The basename() routine returns the first element of the list produced
  1454. + by calling fileparse() with the same arguments.  It is provided for
  1455. + compatibility with the UNIX shell command basename(1).
  1456. + 
  1457. + =item C<dirname>
  1458. + 
  1459. + The dirname() routine returns the directory portion of the input file
  1460. + specification.  When using VMS or MacOS syntax, this is identical to the
  1461. + second element of the list produced by calling fileparse() with the same
  1462. + input file specification.  When using UNIX or MSDOS syntax, the return
  1463. + value conforms to the behavior of the UNIX shell command dirname(1).  This
  1464. + is usually the same as the behavior of fileparse(), but differs in some
  1465. + cases.  For example, for the input file specification F<lib/>, fileparse()
  1466. + considers the directory name to be F<lib/>, while dirname() considers the
  1467. + directory name to be F<.>).
  1468. + 
  1469. + =cut
  1470. + 
  1471.   require 5.000;
  1472.   use Config;
  1473.   require Exporter;
  1474. ***************
  1475. *** 62,68 ****
  1476.   sub fileparse {
  1477.     my($fullname,@suffices) = @_;
  1478.     my($fstype) = $Fileparse_fstype;
  1479. !   my($dirpath,$tail,$suffix,$idx);
  1480.   
  1481.     if ($fstype =~ /^VMS/i) {
  1482.       if ($fullname =~ m#/#) { $fstype = '' }  # We're doing Unix emulation
  1483. --- 173,179 ----
  1484.   sub fileparse {
  1485.     my($fullname,@suffices) = @_;
  1486.     my($fstype) = $Fileparse_fstype;
  1487. !   my($dirpath,$tail,$suffix);
  1488.   
  1489.     if ($fstype =~ /^VMS/i) {
  1490.       if ($fullname =~ m#/#) { $fstype = '' }  # We're doing Unix emulation
  1491. ***************
  1492. *** 84,89 ****
  1493. --- 195,201 ----
  1494.     }
  1495.   
  1496.     if (@suffices) {
  1497. +     $tail = '';
  1498.       foreach $suffix (@suffices) {
  1499.         if ($basename =~ /($suffix)$/) {
  1500.           $tail = $1 . $tail;
  1501. Index: lib/File/CheckTree.pm
  1502. *** perl5.001f/lib/File/CheckTree.pm    Mon Jan 16 23:41:00 1995
  1503. --- perl5.001g/lib/File/CheckTree.pm    Thu May 25 11:23:32 1995
  1504. ***************
  1505. *** 2,7 ****
  1506. --- 2,46 ----
  1507.   require 5.000;
  1508.   require Exporter;
  1509.   
  1510. + =head1 NAME
  1511. + 
  1512. + validate - run many filetest checks on a tree
  1513. + 
  1514. + =head1 SYNOPSIS
  1515. + 
  1516. +     use File::CheckTree;
  1517. + 
  1518. +     $warnings += validate( q{
  1519. +     /vmunix                 -e || die
  1520. +     /boot                   -e || die
  1521. +     /bin                    cd
  1522. +         csh                 -ex
  1523. +         csh                 !-ug
  1524. +         sh                  -ex
  1525. +         sh                  !-ug
  1526. +     /usr                    -d || warn "What happened to $file?\n"
  1527. +     });
  1528. + 
  1529. + =head1 DESCRIPTION
  1530. + 
  1531. + The validate() routine takes a single multiline string consisting of
  1532. + lines containing a filename plus a file test to try on it.  (The
  1533. + file test may also be a "cd", causing subsequent relative filenames
  1534. + to be interpreted relative to that directory.)  After the file test
  1535. + you may put C<|| die> to make it a fatal error if the file test fails.
  1536. + The default is C<|| warn>.  The file test may optionally have a "!' prepended
  1537. + to test for the opposite condition.  If you do a cd and then list some
  1538. + relative filenames, you may want to indent them slightly for readability.
  1539. + If you supply your own die() or warn() message, you can use $file to
  1540. + interpolate the filename.
  1541. + 
  1542. + Filetests may be bunched:  "-rwx" tests for all of C<-r>, C<-w>, and C<-x>.
  1543. + Only the first failed test of the bunch will produce a warning.
  1544. + 
  1545. + The routine returns the number of warnings issued.
  1546. + 
  1547. + =cut
  1548. + 
  1549.   @ISA = qw(Exporter);
  1550.   @EXPORT = qw(validate);
  1551.   
  1552. Index: lib/File/Find.pm
  1553. *** perl5.001f/lib/File/Find.pm    Tue Mar  7 11:34:41 1995
  1554. --- perl5.001g/lib/File/Find.pm    Thu May 25 11:28:40 1995
  1555. ***************
  1556. *** 5,10 ****
  1557. --- 5,65 ----
  1558.   use Cwd;
  1559.   use File::Basename;
  1560.   
  1561. + =head1 NAME
  1562. + 
  1563. + find - traverse a file tree
  1564. + 
  1565. + finddepth - traverse a directory structure depth-first
  1566. + 
  1567. + =head1 SYNOPSIS
  1568. + 
  1569. +     use File::Find;
  1570. +     find(\&wanted, '/foo','/bar');
  1571. +     sub wanted { ... }
  1572. +     
  1573. +     use File::Find;
  1574. +     finddepth(\&wanted, '/foo','/bar');
  1575. +     sub wanted { ... }
  1576. + 
  1577. + =head1 DESCRIPTION
  1578. + 
  1579. + The wanted() function does whatever verifications you want.  $dir contains
  1580. + the current directory name, and $_ the current filename within that
  1581. + directory.  $name contains C<"$dir/$_">.  You are chdir()'d to $dir when
  1582. + the function is called.  The function may set $prune to prune the tree.
  1583. + 
  1584. + This library is primarily for the C<find2perl> tool, which when fed, 
  1585. + 
  1586. +     find2perl / -name .nfs\* -mtime +7 \
  1587. +     -exec rm -f {} \; -o -fstype nfs -prune
  1588. + 
  1589. + produces something like:
  1590. + 
  1591. +     sub wanted {
  1592. +         /^\.nfs.*$/ &&
  1593. +         (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
  1594. +         int(-M _) > 7 &&
  1595. +         unlink($_)
  1596. +         ||
  1597. +         ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &&
  1598. +         $dev < 0 &&
  1599. +         ($prune = 1);
  1600. +     }
  1601. + 
  1602. + Set the variable $dont_use_nlink if you're using AFS, since AFS cheats.
  1603. + 
  1604. + C<finddepth> is just like C<find>, except that it does a depth-first
  1605. + search.
  1606. + 
  1607. + Here's another interesting wanted function.  It will find all symlinks
  1608. + that don't resolve:
  1609. + 
  1610. +     sub wanted {
  1611. +     -l && !-e && print "bogus link: $name\n";
  1612. +     } 
  1613. + 
  1614. + =cut
  1615. + 
  1616.   @ISA = qw(Exporter);
  1617.   @EXPORT = qw(find finddepth $name $dir);
  1618.   
  1619. Index: lib/FileHandle.pm
  1620. *** perl5.001f/lib/FileHandle.pm    Tue Oct 18 12:34:50 1994
  1621. --- perl5.001g/lib/FileHandle.pm    Thu May 25 11:18:20 1995
  1622. ***************
  1623. *** 2,7 ****
  1624. --- 2,56 ----
  1625.   
  1626.   # Note that some additional FileHandle methods are defined in POSIX.pm.
  1627.   
  1628. + =head1 NAME 
  1629. + 
  1630. + FileHandle - supply object methods for filehandles
  1631. + 
  1632. + cacheout - keep more files open than the system permits
  1633. + 
  1634. + =head1 SYNOPSIS
  1635. + 
  1636. +     use FileHandle;
  1637. +     autoflush STDOUT 1;
  1638. + 
  1639. +     cacheout($path);
  1640. +     print $path @data;
  1641. + 
  1642. + =head1 DESCRIPTION
  1643. + 
  1644. + See L<perlvar> for complete descriptions of each of the following supported C<FileHandle> 
  1645. + methods:
  1646. + 
  1647. +     print
  1648. +     autoflush
  1649. +     output_field_separator
  1650. +     output_record_separator
  1651. +     input_record_separator
  1652. +     input_line_number
  1653. +     format_page_number
  1654. +     format_lines_per_page
  1655. +     format_lines_left
  1656. +     format_name
  1657. +     format_top_name
  1658. +     format_line_break_characters
  1659. +     format_formfeed
  1660. + 
  1661. + The cacheout() function will make sure that there's a filehandle
  1662. + open for writing available as the pathname you give it.  It automatically
  1663. + closes and re-opens files if you exceed your system file descriptor maximum.
  1664. + 
  1665. + =head1 BUGS
  1666. + 
  1667. + F<sys/param.h> lies with its C<NOFILE> define on some systems,
  1668. + so you may have to set $cacheout::maxopen yourself.
  1669. + 
  1670. + Due to backwards compatibility, all filehandles resemble objects
  1671. + of class C<FileHandle>, or actually classes derived from that class.
  1672. + They actually aren't.  Which means you can't derive your own 
  1673. + class from C<FileHandle> and inherit those methods.
  1674. + 
  1675. + =cut
  1676. + 
  1677.   require 5.000;
  1678.   use English;
  1679.   use Exporter;
  1680. Index: lib/Getopt/Long.pm
  1681. Prereq:     1.14
  1682.  
  1683. *** perl5.001f/lib/Getopt/Long.pm    Wed Feb  8 19:11:39 1995
  1684. --- perl5.001g/lib/Getopt/Long.pm    Thu May 25 11:55:14 1995
  1685. ***************
  1686. *** 5,10 ****
  1687. --- 5,148 ----
  1688.   @ISA = qw(Exporter);
  1689.   @EXPORT = qw(GetOptions);
  1690.   
  1691. + =head1 NAME
  1692. + 
  1693. + GetOptions - extended getopt processing
  1694. + 
  1695. + =head1 SYNOPSIS
  1696. + 
  1697. +     use Getopt::Long;
  1698. +     $result = GetOptions (...option-descriptions...);
  1699. + 
  1700. + =head1 DESCRIPTION
  1701. + 
  1702. + The Getopt::Long module implements an extended getopt function called
  1703. + GetOptions(). This function adheres to the new syntax (long option names,
  1704. + no bundling).  It tries to implement the better functionality of
  1705. + traditional, GNU and POSIX getopt() functions.
  1706. + 
  1707. + Each description should designate a valid Perl identifier, optionally
  1708. + followed by an argument specifier.
  1709. + 
  1710. + Values for argument specifiers are:
  1711. + 
  1712. +   <none>   option does not take an argument
  1713. +   !        option does not take an argument and may be negated
  1714. +   =s :s    option takes a mandatory (=) or optional (:) string argument
  1715. +   =i :i    option takes a mandatory (=) or optional (:) integer argument
  1716. +   =f :f    option takes a mandatory (=) or optional (:) real number argument
  1717. + 
  1718. + If option "name" is set, it will cause the Perl variable $opt_name to
  1719. + be set to the specified value. The calling program can use this
  1720. + variable to detect whether the option has been set. Options that do
  1721. + not take an argument will be set to 1 (one).
  1722. + 
  1723. + Options that take an optional argument will be defined, but set to ''
  1724. + if no actual argument has been supplied.
  1725. + 
  1726. + If an "@" sign is appended to the argument specifier, the option is
  1727. + treated as an array.  Value(s) are not set, but pushed into array
  1728. + @opt_name.
  1729. + 
  1730. + Options that do not take a value may have an "!" argument specifier to
  1731. + indicate that they may be negated. E.g. "foo!" will allow B<-foo> (which
  1732. + sets $opt_foo to 1) and B<-nofoo> (which will set $opt_foo to 0).
  1733. + 
  1734. + The option name may actually be a list of option names, separated by
  1735. + '|'s, e.g. B<"foo|bar|blech=s". In this example, options 'bar' and
  1736. + 'blech' will set $opt_foo instead.
  1737. + 
  1738. + Option names may be abbreviated to uniqueness, depending on
  1739. + configuration variable $autoabbrev.
  1740. + 
  1741. + Dashes in option names are allowed (e.g. pcc-struct-return) and will
  1742. + be translated to underscores in the corresponding Perl variable (e.g.
  1743. + $opt_pcc_struct_return).  Note that a lone dash "-" is considered an
  1744. + option, corresponding Perl identifier is $opt_ .
  1745. + 
  1746. + A double dash "--" signals end of the options list.
  1747. + 
  1748. + If the first option of the list consists of non-alphanumeric
  1749. + characters only, it is interpreted as a generic option starter.
  1750. + Everything starting with one of the characters from the starter will
  1751. + be considered an option.
  1752. + 
  1753. + The default values for the option starters are "-" (traditional), "--"
  1754. + (POSIX) and "+" (GNU, being phased out).
  1755. + 
  1756. + Options that start with "--" may have an argument appended, separated
  1757. + with an "=", e.g. "--foo=bar".
  1758. + 
  1759. + If configuration variable $getopt_compat is set to a non-zero value,
  1760. + options that start with "+" may also include their arguments,
  1761. + e.g. "+foo=bar".
  1762. + 
  1763. + A return status of 0 (false) indicates that the function detected
  1764. + one or more errors.
  1765. + 
  1766. + =head1 EXAMPLES
  1767. + 
  1768. + If option "one:i" (i.e. takes an optional integer argument), then
  1769. + the following situations are handled:
  1770. + 
  1771. +    -one -two        -> $opt_one = '', -two is next option
  1772. +    -one -2        -> $opt_one = -2
  1773. + 
  1774. + Also, assume "foo=s" and "bar:s" :
  1775. + 
  1776. +    -bar -xxx        -> $opt_bar = '', '-xxx' is next option
  1777. +    -foo -bar        -> $opt_foo = '-bar'
  1778. +    -foo --        -> $opt_foo = '--'
  1779. + 
  1780. + In GNU or POSIX format, option names and values can be combined:
  1781. + 
  1782. +    +foo=blech        -> $opt_foo = 'blech'
  1783. +    --bar=        -> $opt_bar = ''
  1784. +    --bar=--        -> $opt_bar = '--'
  1785. + 
  1786. + =over 12
  1787. + 
  1788. + =item $autoabbrev      
  1789. + 
  1790. + Allow option names to be abbreviated to uniqueness.
  1791. + Default is 1 unless environment variable
  1792. + POSIXLY_CORRECT has been set.
  1793. + 
  1794. + =item $getopt_compat   
  1795. + 
  1796. + Allow '+' to start options.
  1797. + Default is 1 unless environment variable
  1798. + POSIXLY_CORRECT has been set.
  1799. + 
  1800. + =item $option_start    
  1801. + 
  1802. + Regexp with option starters.
  1803. + Default is (--|-) if environment variable
  1804. + POSIXLY_CORRECT has been set, (--|-|\+) otherwise.
  1805. + 
  1806. + =item $order           
  1807. + 
  1808. + Whether non-options are allowed to be mixed with
  1809. + options.
  1810. + Default is $REQUIRE_ORDER if environment variable
  1811. + POSIXLY_CORRECT has been set, $PERMUTE otherwise.
  1812. + 
  1813. + =item $ignorecase      
  1814. + 
  1815. + Ignore case when matching options. Default is 1.
  1816. + 
  1817. + =item $debug           
  1818. + 
  1819. + Enable debugging output. Default is 0.
  1820. + 
  1821. + =back
  1822. + 
  1823. + =head1 NOTE
  1824. + 
  1825. + Does not yet use the Exporter--or even packages!!
  1826. + Thus, it's not a real module.
  1827. + 
  1828. + =cut
  1829.   
  1830.   # newgetopt.pl -- new options parsing
  1831.   
  1832. ***************
  1833. *** 316,322 ****
  1834.   
  1835.       # Double dash is option list terminator.
  1836.       if ( $opt eq $argend ) {
  1837. !         unshift (@ret, @ARGV) if $order == $PERMUTE;
  1838.           return ($error == 0);
  1839.       }
  1840.       elsif ( $opt =~ /^$genprefix/ ) {
  1841. --- 454,460 ----
  1842.   
  1843.       # Double dash is option list terminator.
  1844.       if ( $opt eq $argend ) {
  1845. !         unshift (@ARGV, @ret) if $order == $PERMUTE;
  1846.           return ($error == 0);
  1847.       }
  1848.       elsif ( $opt =~ /^$genprefix/ ) {
  1849. Index: lib/Getopt/Std.pm
  1850. *** perl5.001f/lib/Getopt/Std.pm    Tue Oct 18 12:37:55 1994
  1851. --- perl5.001g/lib/Getopt/Std.pm    Thu May 25 11:55:27 1995
  1852. ***************
  1853. *** 2,7 ****
  1854. --- 2,31 ----
  1855.   require 5.000;
  1856.   require Exporter;
  1857.   
  1858. + =head1 NAME
  1859. + 
  1860. + getopt - Process single-character switches with switch clustering
  1861. + 
  1862. + getopts - Process single-character switches with switch clustering
  1863. + 
  1864. + =head1 SYNOPSIS
  1865. + 
  1866. +     use Getopt::Std;
  1867. +     getopt('oDI');  # -o, -D & -I take arg.  Sets opt_* as a side effect.
  1868. +     getopts('oif:');  # -o & -i are boolean flags, -f takes an argument
  1869. +               # Sets opt_* as a side effect.
  1870. + 
  1871. + =head1 DESCRIPTION
  1872. + 
  1873. + The getopt() functions processes single-character switches with switch
  1874. + clustering.  Pass one argument which is a string containing all switches
  1875. + that take an argument.  For each switch found, sets $opt_x (where x is the
  1876. + switch name) to the value of the argument, or 1 if no argument.  Switches
  1877. + which take an argument don't care whether there is a space between the
  1878. + switch and the argument.
  1879. + 
  1880. + =cut
  1881. + 
  1882.   @ISA = qw(Exporter);
  1883.   @EXPORT = qw(getopt getopts);
  1884.   
  1885. ***************
  1886. *** 64,70 ****
  1887.       ($first,$rest) = ($1,$2);
  1888.       $pos = index($argumentative,$first);
  1889.       if($pos >= 0) {
  1890. !         if($args[$pos+1] eq ':') {
  1891.           shift(@ARGV);
  1892.           if($rest eq '') {
  1893.               ++$errs unless @ARGV;
  1894. --- 88,94 ----
  1895.       ($first,$rest) = ($1,$2);
  1896.       $pos = index($argumentative,$first);
  1897.       if($pos >= 0) {
  1898. !         if(defined($args[$pos+1]) and ($args[$pos+1] eq ':')) {
  1899.           shift(@ARGV);
  1900.           if($rest eq '') {
  1901.               ++$errs unless @ARGV;
  1902. Index: lib/I18N/Collate.pm
  1903. *** perl5.001f/lib/I18N/Collate.pm    Tue Oct 18 12:37:58 1994
  1904. --- perl5.001g/lib/I18N/Collate.pm    Thu May 25 11:30:29 1995
  1905. ***************
  1906. *** 1,5 ****
  1907. --- 1,39 ----
  1908.   package I18N::Collate;
  1909.   
  1910. + =head1 NAME
  1911. + 
  1912. + Collate - compare 8-bit scalar data according to the current locale
  1913. + 
  1914. + =head1 SYNOPSIS
  1915. + 
  1916. +     use Collate;
  1917. +     setlocale(LC_COLLATE, 'locale-of-your-choice'); 
  1918. +     $s1 = new Collate "scalar_data_1";
  1919. +     $s2 = new Collate "scalar_data_2";
  1920. + 
  1921. + =head1 DESCRIPTION
  1922. + 
  1923. + This module provides you with objects that will collate 
  1924. + according to your national character set, providing the 
  1925. + POSIX setlocale() function should be supported on your system.
  1926. + 
  1927. + You can compare $s1 and $s2 above with
  1928. + 
  1929. +     $s1 le $s2
  1930. + 
  1931. + to extract the data itself, you'll need a dereference: $$s1
  1932. + 
  1933. + This uses POSIX::setlocale The basic collation conversion is done by
  1934. + strxfrm() which terminates at NUL characters being a decent C routine.
  1935. + collate_xfrm() handles embedded NUL characters gracefully.  Due to C<cmp>
  1936. + and overload magic, C<lt>, C<le>, C<eq>, C<ge>, and C<gt> work also.  The
  1937. + available locales depend on your operating system; try whether C<locale
  1938. + -a> shows them or the more direct approach C<ls /usr/lib/nls/loc> or C<ls
  1939. + /usr/lib/nls>.  The locale names are probably something like
  1940. + "xx_XX.(ISO)?8859-N".
  1941. + 
  1942. + =cut
  1943. + 
  1944.   # Collate.pm
  1945.   #
  1946.   # Author:    Jarkko Hietaniemi <Jarkko.Hietaniemi@hut.fi>
  1947. Index: lib/IPC/Open2.pm
  1948. *** perl5.001f/lib/IPC/Open2.pm    Tue Oct 18 12:38:01 1994
  1949. --- perl5.001g/lib/IPC/Open2.pm    Thu May 25 11:31:07 1995
  1950. ***************
  1951. *** 3,8 ****
  1952. --- 3,53 ----
  1953.   require Exporter;
  1954.   use Carp;
  1955.   
  1956. + =head1 NAME
  1957. + 
  1958. + IPC::Open2, open2 - open a process for both reading and writing
  1959. + 
  1960. + =head1 SYNOPSIS
  1961. + 
  1962. +     use IPC::Open2;
  1963. +     $pid = open2('rdr', 'wtr', 'some cmd and args');
  1964. +       # or
  1965. +     $pid = open2('rdr', 'wtr', 'some', 'cmd', 'and', 'args');
  1966. + 
  1967. + =head1 DESCRIPTION
  1968. + 
  1969. + The open2() function spawns the given $cmd and connects $rdr for
  1970. + reading and $wtr for writing.  It's what you think should work 
  1971. + when you try
  1972. + 
  1973. +     open(HANDLE, "|cmd args");
  1974. + 
  1975. + open2() returns the process ID of the child process.  It doesn't return on
  1976. + failure: it just raises an exception matching C</^open2:/>.
  1977. + 
  1978. + =head1 WARNING 
  1979. + 
  1980. + It will not create these file handles for you.  You have to do this yourself.
  1981. + So don't pass it empty variables expecting them to get filled in for you.
  1982. + 
  1983. + Additionally, this is very dangerous as you may block forever.
  1984. + It assumes it's going to talk to something like B<bc>, both writing to
  1985. + it and reading from it.  This is presumably safe because you "know"
  1986. + that commands like B<bc> will read a line at a time and output a line at
  1987. + a time.  Programs like B<sort> that read their entire input stream first,
  1988. + however, are quite apt to cause deadlock.  
  1989. + 
  1990. + The big problem with this approach is that if you don't have control 
  1991. + over source code being run in the the child process, you can't control what it does 
  1992. + with pipe buffering.  Thus you can't just open a pipe to "cat -v" and continually
  1993. + read and write a line from it.
  1994. + 
  1995. + =head1 SEE ALSO
  1996. + 
  1997. + See L<open3> for an alternative that handles STDERR as well.
  1998. + 
  1999. + =cut
  2000. + 
  2001.   @ISA = qw(Exporter);
  2002.   @EXPORT = qw(open2);
  2003.   
  2004. Index: lib/IPC/Open3.pm
  2005. Prereq:  1.1 
  2006. *** perl5.001f/lib/IPC/Open3.pm    Tue Oct 18 12:38:04 1994
  2007. --- perl5.001g/lib/IPC/Open3.pm    Thu May 25 11:31:25 1995
  2008. ***************
  2009. *** 3,8 ****
  2010. --- 3,33 ----
  2011.   require Exporter;
  2012.   use Carp;
  2013.   
  2014. + =head1 NAME
  2015. + 
  2016. + IPC::Open3, open3 - open a process for reading, writing, and error handling
  2017. + 
  2018. + =head1 SYNOPSIS
  2019. + 
  2020. +     $pid = open3('WTRFH', 'RDRFH', 'ERRFH' 
  2021. +             'some cmd and args', 'optarg', ...);
  2022. + 
  2023. + =head1 DESCRIPTION
  2024. + 
  2025. + Extremely similar to open2(), open3() spawns the given $cmd and
  2026. + connects RDRFH for reading, WTRFH for writing, and ERRFH for errors.  If
  2027. + ERRFH is '', or the same as RDRFH, then STDOUT and STDERR of the child are
  2028. + on the same file handle.
  2029. + 
  2030. + If WTRFH begins with ">&", then WTRFH will be closed in the parent, and
  2031. + the child will read from it directly.  if RDRFH or ERRFH begins with
  2032. + ">&", then the child will send output directly to that file handle.  In both
  2033. + cases, there will be a dup(2) instead of a pipe(2) made.
  2034. + 
  2035. + All caveats from open2() continue to apply.  See L<open2> for details.
  2036. + 
  2037. + =cut
  2038. + 
  2039.   @ISA = qw(Exporter);
  2040.   @EXPORT = qw(open3);
  2041.   
  2042. Index: lib/Net/Ping.pm
  2043. *** perl5.001f/lib/Net/Ping.pm    Tue Oct 18 12:38:18 1994
  2044. --- perl5.001g/lib/Net/Ping.pm    Thu May 25 11:33:14 1995
  2045. ***************
  2046. *** 1,5 ****
  2047. --- 1,44 ----
  2048.   package Net::Ping;
  2049.   
  2050. + =head1 NAME
  2051. + 
  2052. + Net::Ping, pingecho - check a host for upness
  2053. + 
  2054. + =head1 SYNOPSIS
  2055. + 
  2056. +     use Net::Ping;
  2057. +     print "'jimmy' is alive and kicking\n" if pingecho('jimmy', 10) ;
  2058. + 
  2059. + =head1 DESCRIPTION
  2060. + 
  2061. + This module contains routines to test for the reachability of remote hosts.
  2062. + Currently the only routine implemented is pingecho(). 
  2063. + 
  2064. + pingecho() uses a TCP echo (I<not> an ICMP one) to determine if the
  2065. + remote host is reachable. This is usually adequate to tell that a remote
  2066. + host is available to rsh(1), ftp(1), or telnet(1) onto.
  2067. + 
  2068. + =head2 Parameters
  2069. + 
  2070. + =over 5
  2071. + 
  2072. + =item hostname
  2073. + 
  2074. + The remote host to check, specified either as a hostname or as an IP address.
  2075. + 
  2076. + =item timeout
  2077. + 
  2078. + The timeout in seconds. If not specified it will default to 5 seconds.
  2079. + 
  2080. + =back
  2081. + 
  2082. + =head1 WARNING
  2083. + 
  2084. + pingecho() uses alarm to implement the timeout, so don't set another alarm
  2085. + while you are using it.
  2086. + 
  2087. + =cut
  2088. + 
  2089.   # Authors: karrer@bernina.ethz.ch (Andreas Karrer)
  2090.   #          pmarquess@bfsec.bt.co.uk (Paul Marquess)
  2091.   
  2092. Index: lib/Term/Complete.pm
  2093. *** perl5.001f/lib/Term/Complete.pm    Tue Oct 18 12:38:32 1994
  2094. --- perl5.001g/lib/Term/Complete.pm    Wed May 24 12:09:48 1995
  2095. ***************
  2096. *** 37,43 ****
  2097.       $erase2 =   "\010";
  2098.   }
  2099.   
  2100. ! sub complete {
  2101.       $prompt = shift;
  2102.       if (ref $_[0] || $_[0] =~ /^\*/) {
  2103.       @cmp_lst = sort @{$_[0]};
  2104. --- 37,43 ----
  2105.       $erase2 =   "\010";
  2106.   }
  2107.   
  2108. ! sub Complete {
  2109.       $prompt = shift;
  2110.       if (ref $_[0] || $_[0] =~ /^\*/) {
  2111.       @cmp_lst = sort @{$_[0]};
  2112. Index: lib/Text/Abbrev.pm
  2113. *** perl5.001f/lib/Text/Abbrev.pm    Tue Oct 18 12:38:38 1994
  2114. --- perl5.001g/lib/Text/Abbrev.pm    Thu May 25 11:34:02 1995
  2115. ***************
  2116. *** 2,7 ****
  2117. --- 2,29 ----
  2118.   require 5.000;
  2119.   require Exporter;
  2120.   
  2121. + =head1 NAME
  2122. + 
  2123. + abbrev - create an abbreviation table from a list
  2124. + 
  2125. + =head1 SYNOPSIS
  2126. + 
  2127. +     use Abbrev;
  2128. +     abbrev *HASH, LIST
  2129. + 
  2130. + 
  2131. + =head1 DESCRIPTION
  2132. + 
  2133. + Stores all unambiguous truncations of each element of LIST
  2134. + as keys key in the associative array indicated by C<*hash>.
  2135. + The values are the original list elements.
  2136. + 
  2137. + =head1 EXAMPLE
  2138. + 
  2139. +     abbrev(*hash,qw("list edit send abort gripe"));
  2140. + 
  2141. + =cut
  2142. + 
  2143.   @ISA = qw(Exporter);
  2144.   @EXPORT = qw(abbrev);
  2145.   
  2146. Index: lib/Text/Tabs.pm
  2147. *** perl5.001f/lib/Text/Tabs.pm    Wed Feb  8 19:11:42 1995
  2148. --- perl5.001g/lib/Text/Tabs.pm    Wed May 24 14:29:04 1995
  2149. ***************
  2150. *** 2,11 ****
  2151.   # expand and unexpand tabs as per the unix expand and 
  2152.   # unexpand programs.
  2153.   #
  2154. ! # expand and unexpand operate on arrays of lines.  Do not
  2155. ! # feed strings that contain newlines to them.
  2156.   #
  2157.   # David Muir Sharnoff <muir@idiom.com>
  2158.   # 
  2159.   
  2160.   package Text::Tabs;
  2161. --- 2,11 ----
  2162.   # expand and unexpand tabs as per the unix expand and 
  2163.   # unexpand programs.
  2164.   #
  2165. ! # expand and unexpand operate on arrays of lines.  
  2166.   #
  2167.   # David Muir Sharnoff <muir@idiom.com>
  2168. + # Version: 4/19/95
  2169.   # 
  2170.   
  2171.   package Text::Tabs;
  2172. ***************
  2173. *** 19,47 ****
  2174.   
  2175.   sub expand
  2176.   {
  2177. !     my @l = @_;
  2178. !     for $_ (@l) {
  2179. !         1 while s/^([^\t]*)(\t+)/
  2180. !             $1 . (" " x 
  2181. !                 ($tabstop * length($2)
  2182. !                 - (length($1) % $tabstop)))
  2183. !             /e;
  2184.       }
  2185. !     return @l;
  2186.   }
  2187.   
  2188.   sub unexpand
  2189.   {
  2190. !     my @l = &expand(@_);
  2191.       my @e;
  2192. !     for $x (@l) {
  2193. !         @e = split(/(.{$tabstop})/,$x);
  2194. !         for $_ (@e) {
  2195. !             s/  +$/\t/;
  2196.           }
  2197. !         $x = join('',@e);
  2198.       }
  2199. !     return @l;
  2200.   }
  2201.   
  2202.   1;
  2203. --- 19,63 ----
  2204.   
  2205.   sub expand
  2206.   {
  2207. !     my (@l) = @_;
  2208. !     my $l, @k;
  2209. !     my $nl;
  2210. !     for $l (@l) {
  2211. !         $nl = $/ if chomp($l);
  2212. !         @k = split($/,$l);
  2213. !         for $_ (@k) {
  2214. !             1 while s/^([^\t]*)(\t+)/
  2215. !                 $1 . (" " x 
  2216. !                     ($tabstop * length($2)
  2217. !                     - (length($1) % $tabstop)))
  2218. !                 /e;
  2219. !         }
  2220. !         $l = join("\n",@k).$nl;
  2221.       }
  2222. !     return @l if $#l > 0;
  2223. !     return $l[0];
  2224.   }
  2225.   
  2226.   sub unexpand
  2227.   {
  2228. !     my (@l) = &expand(@_);
  2229.       my @e;
  2230. !     my $k, @k;
  2231. !     my $nl;
  2232. !     for $k (@l) {
  2233. !         $nl = $/ if chomp($k);
  2234. !         @k = split($/,$k);
  2235. !         for $x (@k) {
  2236. !             @e = split(/(.{$tabstop})/,$x);
  2237. !             for $_ (@e) {
  2238. !                 s/  +$/\t/;
  2239. !             }
  2240. !             $x = join('',@e);
  2241.           }
  2242. !         $k = join("\n",@k).$nl;
  2243.       }
  2244. !     return @l if $#l > 0;
  2245. !     return $l[0];
  2246.   }
  2247.   
  2248.   1;
  2249. Index: lib/integer.pm
  2250. *** perl5.001f/lib/integer.pm    Tue Oct 18 12:36:34 1994
  2251. --- perl5.001g/lib/integer.pm    Thu May 25 11:19:41 1995
  2252. ***************
  2253. *** 1,5 ****
  2254. --- 1,26 ----
  2255.   package integer;
  2256.   
  2257. + =head1 NAME
  2258. + 
  2259. + integer - Perl pragma to compute arithmetic in integer instead of double
  2260. + 
  2261. + =head1 SYNOPSIS
  2262. + 
  2263. +     use integer;
  2264. +     $x = 10/3;
  2265. +     # $x is now 3, not 3.33333333333333333
  2266. + 
  2267. + =head1 DESCRIPTION
  2268. + 
  2269. + This tells the compiler that it's okay to use integer operations
  2270. + from here to the end of the enclosing BLOCK.  On many machines, 
  2271. + this doesn't matter a great deal for most computations, but on those 
  2272. + without floating point hardware, it can make a big difference.
  2273. + 
  2274. + See L<perlmod/Pragmatic Modules>.
  2275. + 
  2276. + =cut
  2277. + 
  2278.   sub import {
  2279.       $^H |= 1;
  2280.   }
  2281. Index: lib/less.pm
  2282. *** perl5.001f/lib/less.pm    Tue Oct 18 12:36:36 1994
  2283. --- perl5.001g/lib/less.pm    Thu May 25 11:19:59 1995
  2284. ***************
  2285. *** 1,2 ****
  2286. --- 1,19 ----
  2287.   package less;
  2288. + 
  2289. + =head1 NAME
  2290. + 
  2291. + less - Perl pragma to request less of something from the compiler
  2292. + 
  2293. + =head1 DESCRIPTION
  2294. + 
  2295. + Currently unimplemented, this may someday be a compiler directive
  2296. + to make certain trade-offs, such as perhaps
  2297. + 
  2298. +     use less 'memory';
  2299. +     use less 'CPU';
  2300. +     use less 'fat';
  2301. + 
  2302. + 
  2303. + =cut
  2304. + 
  2305.   1;
  2306. Index: lib/sigtrap.pm
  2307. *** perl5.001f/lib/sigtrap.pm    Tue Oct 18 12:36:58 1994
  2308. --- perl5.001g/lib/sigtrap.pm    Thu May 25 11:20:13 1995
  2309. ***************
  2310. *** 1,5 ****
  2311. --- 1,27 ----
  2312.   package sigtrap;
  2313.   
  2314. + =head1 NAME
  2315. + 
  2316. + sigtrap - Perl pragma to enable stack backtrace on unexpected signals
  2317. + 
  2318. + =head1 SYNOPSIS
  2319. + 
  2320. +     use sigtrap;
  2321. +     use sigtrap qw(BUS SEGV PIPE SYS ABRT TRAP);
  2322. + 
  2323. + =head1 DESCRIPTION
  2324. + 
  2325. + The C<sigtrap> pragma initializes some default signal handlers that print
  2326. + a stack dump of your Perl program, then sends itself a SIGABRT.  This
  2327. + provides a nice starting point if something horrible goes wrong.
  2328. + 
  2329. + By default, handlers are installed for the ABRT, BUS, EMT, FPE, ILL, PIPE,
  2330. + QUIT, SEGV, SYS, TERM, and TRAP signals.
  2331. + 
  2332. + See L<perlmod/Pragmatic Modules>.
  2333. + 
  2334. + =cut
  2335. + 
  2336.   require Carp;
  2337.   
  2338.   sub import {
  2339. Index: lib/strict.pm
  2340. *** perl5.001f/lib/strict.pm    Tue Oct 18 12:37:06 1994
  2341. --- perl5.001g/lib/strict.pm    Thu May 25 11:20:27 1995
  2342. ***************
  2343. *** 1,5 ****
  2344. --- 1,73 ----
  2345.   package strict;
  2346.   
  2347. + =head1 NAME
  2348. + 
  2349. + strict - Perl pragma to restrict unsafe constructs
  2350. + 
  2351. + =head1 SYNOPSIS
  2352. + 
  2353. +     use strict;
  2354. + 
  2355. +     use strict "vars";
  2356. +     use strict "refs";
  2357. +     use strict "subs";
  2358. + 
  2359. +     use strict;
  2360. +     no strict "vars";
  2361. + 
  2362. + =head1 DESCRIPTION
  2363. + 
  2364. + If no import list is supplied, all possible restrictions are assumed.
  2365. + (This is the safest mode to operate in, but is sometimes too strict for
  2366. + casual programming.)  Currently, there are three possible things to be
  2367. + strict about:  "subs", "vars", and "refs".
  2368. + 
  2369. + =over 6
  2370. + 
  2371. + =item C<strict refs>
  2372. + 
  2373. + This generates a runtime error if you 
  2374. + use symbolic references (see L<perlref>).
  2375. + 
  2376. +     use strict 'refs';
  2377. +     $ref = \$foo;
  2378. +     print $$ref;    # ok
  2379. +     $ref = "foo";
  2380. +     print $$ref;    # runtime error; normally ok
  2381. + 
  2382. + =item C<strict vars>
  2383. + 
  2384. + This generates a compile-time error if you access a variable that wasn't
  2385. + localized via C<my()> or wasn't fully qualified.  Because this is to avoid
  2386. + variable suicide problems and subtle dynamic scoping issues, a merely
  2387. + local() variable isn't good enough.  See L<perlfunc/my> and
  2388. + L<perlfunc/local>.
  2389. + 
  2390. +     use strict 'vars';
  2391. +     $X::foo = 1;     # ok, fully qualified
  2392. +     my $foo = 10;     # ok, my() var
  2393. +     local $foo = 9;     # blows up
  2394. + 
  2395. + The local() generated a compile-time error because you just touched a global
  2396. + name without fully qualifying it.
  2397. + 
  2398. + =item C<strict subs>
  2399. + 
  2400. + This disables the poetry optimization,
  2401. + generating a compile-time error if you 
  2402. + try to use a bareword identifier that's not a subroutine.
  2403. + 
  2404. +     use strict 'subs';
  2405. +     $SIG{PIPE} = Plumber;       # blows up
  2406. +     $SIG{"PIPE"} = "Plumber";     # just fine
  2407. + 
  2408. + =back
  2409. + 
  2410. + See L<perlmod/Pragmatic Modules>.
  2411. + 
  2412. + 
  2413. + =cut
  2414. + 
  2415.   sub bits {
  2416.       my $bits = 0;
  2417.       foreach $sememe (@_) {
  2418. Index: lib/subs.pm
  2419. *** perl5.001f/lib/subs.pm    Tue Oct 18 12:37:09 1994
  2420. --- perl5.001g/lib/subs.pm    Thu May 25 11:20:45 1995
  2421. ***************
  2422. *** 1,5 ****
  2423. --- 1,23 ----
  2424.   package subs;
  2425.   
  2426. + =head1 NAME
  2427. + 
  2428. + subs - Perl pragma to predeclare sub names
  2429. + 
  2430. + =head1 SYNOPSIS
  2431. + 
  2432. +     use subs qw(frob);
  2433. +     frob 3..10;
  2434. + 
  2435. + =head1 DESCRIPTION
  2436. + 
  2437. + This will predeclare all the subroutine whose names are 
  2438. + in the list, allowing you to use them without parentheses
  2439. + even before they're declared.
  2440. + 
  2441. + See L<perlmod/Pragmatic Modules> and L<strict/subs>.
  2442. + 
  2443. + =cut
  2444.   require 5.000;
  2445.   
  2446.   $ExportLevel = 0;
  2447.  
  2448.  
  2449. End of patch.
  2450.