Moving old tlperl prior to committing new one

git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 1478 insertions, 0 deletions

diff --git a/Master/tlpkg/tlperl0/bin/perlthanks.bat b/Master/tlpkg/tlperl0/bin/perlthanks.bat
new file mode 100755
index 00000000000..2d37b78d2ba
--- /dev/null
+++ b/Master/tlpkg/tlperl0/bin/perlthanks.bat
@@ -0,0 +1,1478 @@
+@rem = '--*-Perl-*--

+@echo off

+if "%OS%" == "Windows_NT" goto WinNT

+perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9

+goto endofperl

+:WinNT

+perl -x -S %0 %*

+if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl

+if %errorlevel% == 9009 echo You do not have Perl in your PATH.

+if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul

+goto endofperl

+@rem ';

+#!perl

+#line 15

+    eval 'exec C:\strawberry\perl\bin\perl.exe -S $0 ${1+"$@"}'

+	if $running_under_some_shell;

+

+my $config_tag1 = '5.10.1 - Wed Jan 27 23:29:27 2010';

+

+my $patchlevel_date = 1250639291;

+my $patch_tags = '';

+my @patches = (

+    ''

+);

+

+use warnings;

+no warnings 'once'; # Eventually, the $::opt_ stuff should get cleaned up

+use strict;

+use Config;

+use File::Spec;		# keep perlbug Perl 5.005 compatible

+use Getopt::Std;

+use File::Basename 'basename';

+

+sub paraprint;

+

+BEGIN {

+    eval { require Mail::Send;};

+    $::HaveSend = ($@ eq "");

+    eval { require Mail::Util; } ;

+    $::HaveUtil = ($@ eq "");

+    # use secure tempfiles wherever possible

+    eval { require File::Temp; };

+    $::HaveTemp = ($@ eq "");

+    eval { require Module::CoreList; };

+    $::HaveCoreList = ($@ eq "");

+};

+

+my $Version = "1.39";

+

+# Changed in 1.06 to skip Mail::Send and Mail::Util if not available.

+# Changed in 1.07 to see more sendmail execs, and added pipe output.

+# Changed in 1.08 to use correct address for sendmail.

+# Changed in 1.09 to close the REP file before calling it up in the editor.

+#                 Also removed some old comments duplicated elsewhere.

+# Changed in 1.10 to run under VMS without Mail::Send; also fixed

+#                 temp filename generation.

+# Changed in 1.11 to clean up some text and removed Mail::Send deactivator.

+# Changed in 1.12 to check for editor errors, make save/send distinction

+#                 clearer and add $ENV{REPLYTO}.

+# Changed in 1.13 to hopefully make it more difficult to accidentally

+#                 send mail

+# Changed in 1.14 to make the prompts a little more clear on providing

+#                 helpful information. Also let file read fail gracefully.

+# Changed in 1.15 to add warnings to stop people using perlbug for non-bugs.

+#                 Also report selected environment variables.

+# Changed in 1.16 to include @INC, and allow user to re-edit if no changes.

+# Changed in 1.17 Win32 support added.  GSAR 97-04-12

+# Changed in 1.18 add '-ok' option for reporting build success. CFR 97-06-18

+# Changed in 1.19 '-ok' default not '-v'

+#                 add local patch information

+#                 warn on '-ok' if this is an old system; add '-okay'

+# Changed in 1.20 Added patchlevel.h reading and version/config checks

+# Changed in 1.21 Added '-nok' for reporting build failure DFD 98-05-05

+# Changed in 1.22 Heavy reformatting & minor bugfixes HVDS 98-05-10

+# Changed in 1.23 Restore -ok(ay): say 'success'; don't prompt

+# Changed in 1.24 Added '-F<file>' to save report HVDS 98-07-01

+# Changed in 1.25 Warn on failure to open save file. HVDS 98-07-12

+# Changed in 1.26 Don't require -t STDIN for -ok. HVDS 98-07-15

+# Changed in 1.27 Added Mac OS and File::Spec support CNANDOR 99-07-27

+# Changed in 1.28 Additional questions for Perlbugtron RFOLEY 20.03.2000

+# Changed in 1.29 Perlbug(tron): auto(-ok), short prompts RFOLEY 05-05-2000

+# Changed in 1.30 Added warnings on failure to open files MSTEVENS 13-07-2000

+# Changed in 1.31 Add checks on close().Fix my $var unless. TJENNESS 26-07-2000

+# Changed in 1.32 Use File::Spec->tmpdir TJENNESS 20-08-2000

+# Changed in 1.33 Don't require -t STDOUT for -ok.

+# Changed in 1.34 Added Message-Id RFOLEY 18-06-2002 

+# Changed in 1.35 Use File::Temp (patch from Solar Designer) NWCLARK 28-02-2004

+# Changed in 1.36 Initial Module::CoreList support Alexandr Ciornii 11-07-2007

+# Changed in 1.37 Killed some string evals, rewrote most prose JESSE 2008-06-08

+# Changed in 1.38 Actually enforce the CoreList check,

+#                 Record the module the user enters if they do so

+#                 Refactor prompts to use common code           JESSE 2008-06-08

+# Changed in 1.39 Trap mail sending failures (simple ones) so   JESSE 2008-06-08

+#                 users might be able to recover their bug reports

+#                 Refactor mail sending routines

+#                 Unify message building code

+#                 Unify message header building

+#                 Fix "module" prompting to not squish "category" prompting 

+#                 use warnings; (except 'once' warnings)

+#                 Unified report fingerprint/change detection code

+#                 Removed some labeled 'gotos'

+#TODO:

+#       make sure failure (transmission-wise) of Mail::Send is accounted for.

+#       (This may work now. Unsure of the original author's issue -JESSE 2008-06-08)

+#       - Test -b option

+

+my( $file, $usefile, $cc, $address, $bugaddress, $testaddress, $thanksaddress,

+    $filename, $messageid, $domain, $subject, $from, $verbose, $ed, $outfile,

+    $fh, $me, $body, $andcc, %REP, $ok, $thanks, $progname,

+    $Is_MacOS, $Is_MSWin32, $Is_Linux, $Is_VMS, $Is_OpenBSD,

+    $report_about_module, $category, $severity,

+

+);

+

+my $perl_version = $^V ? sprintf("%vd", $^V) : $];

+

+my $config_tag2 = "$perl_version - $Config{cf_time}";

+

+Init();

+

+if ($::opt_h) { Help(); exit; }

+if ($::opt_d) { Dump(*STDOUT); exit; }

+if (!-t STDIN && !($ok and not $::opt_n)) {

+    paraprint <<"EOF";

+Please use $progname interactively. If you want to

+include a file, you can use the -f switch.

+EOF

+    die "\n";

+}

+

+Query();

+Edit() unless $usefile || ($ok and not $::opt_n);

+NowWhat();

+if ($outfile) {

+    save_message_to_disk($outfile);

+} else {

+    Send();

+    if ($thanks) {

+	print "\nThank you for taking the time to send a thank-you message!\n\n";

+    } else {

+	print "\nThank you for taking the time to file a bug report!\n\n";

+    }

+}

+

+exit;

+

+sub ask_for_alternatives { # (category|severity)

+    my $name = shift;

+    my %alts = (

+	'category' => {

+	    'default' => 'core',

+	    'ok'      => 'install',

+	    # Inevitably some of these will end up in RT whatever we do:

+	    'thanks'  => 'thanks',

+	    'opts'    => [qw(core docs install library utilities)], # patch, notabug

+	},

+	'severity' => {

+	    'default' => 'low',

+	    'ok'      => 'none',

+	    'thanks'  => 'none',

+	    'opts'    => [qw(critical high medium low wishlist none)], # zero

+	},

+    );

+    die "Invalid alternative ($name) requested\n" unless grep(/^$name$/, keys %alts);

+    my $alt = "";

+    my $what = $ok || $thanks;

+    if ($what) {

+	$alt = $alts{$name}{$what};

+    } else {

+ 	my @alts = @{$alts{$name}{'opts'}};

+    print "\n\n";

+	paraprint <<EOF;

+Please pick a $name from the following list:

+

+    @alts

+EOF

+	my $err = 0;

+	do {

+	    if ($err++ > 5) {

+		die "Invalid $name: aborting.\n";

+	    }

+        $alt = _prompt('', "\u$name", $alts{$name}{'default'});

+		$alt ||= $alts{$name}{'default'};

+	} while !((($alt) = grep(/^$alt/i, @alts)));

+    }

+    lc $alt;

+}

+

+sub Init {

+    # -------- Setup --------

+

+    $Is_MSWin32 = $^O eq 'MSWin32';

+    $Is_VMS = $^O eq 'VMS';

+    $Is_Linux = lc($^O) eq 'linux';

+    $Is_OpenBSD = lc($^O) eq 'openbsd';

+    $Is_MacOS = $^O eq 'MacOS';

+

+    @ARGV = split m/\s+/,

+        MacPerl::Ask('Provide command line args here (-h for help):')

+        if $Is_MacOS && $MacPerl::Version =~ /App/;

+

+    if (!getopts("Adhva:s:b:f:F:r:e:SCc:to:n:T")) { Help(); exit; };

+

+    # This comment is needed to notify metaconfig that we are

+    # using the $perladmin, $cf_by, and $cf_time definitions.

+

+    # -------- Configuration ---------

+

+    # perlbug address

+    $bugaddress = 'perlbug@perl.org';

+

+    # Test address

+    $testaddress = 'perlbug-test@perl.org';

+

+    # Thanks address

+    $thanksaddress = 'perl-thanks@perl.org';

+

+    if (basename ($0) =~ /^perlthanks/i) {

+	# invoked as perlthanks

+	$::opt_T = 1;

+	$::opt_C = 1; # don't send a copy to the local admin

+    }

+

+    if ($::opt_T) {

+	$thanks = 'thanks';

+    }

+    

+    $progname = $thanks ? 'perlthanks' : 'perlbug';

+    # Target address

+    $address = $::opt_a || ($::opt_t ? $testaddress

+			    : $thanks ? $thanksaddress : $bugaddress);

+

+    # Users address, used in message and in Reply-To header

+    $from = $::opt_r || "";

+

+    # Include verbose configuration information

+    $verbose = $::opt_v || 0;

+

+    # Subject of bug-report message

+    $subject = $::opt_s || "";

+

+    # Send a file

+    $usefile = ($::opt_f || 0);

+

+    # File to send as report

+    $file = $::opt_f || "";

+

+    # File to output to

+    $outfile = $::opt_F || "";

+

+    # Body of report

+    $body = $::opt_b || "";

+	

+    # Editor

+    $ed = $::opt_e || $ENV{VISUAL} || $ENV{EDITOR} || $ENV{EDIT}

+	|| ($Is_VMS && "edit/tpu")

+	|| ($Is_MSWin32 && "notepad")

+	|| ($Is_MacOS && '')

+	|| "vi";

+

+    # Not OK - provide build failure template by finessing OK report

+    if ($::opt_n) {

+	if (substr($::opt_n, 0, 2) eq 'ok' )	{

+	    $::opt_o = substr($::opt_n, 1);

+	} else {

+	    Help();

+	    exit();

+	}

+    }

+

+    # OK - send "OK" report for build on this system

+    $ok = '';

+    if ($::opt_o) {

+	if ($::opt_o eq 'k' or $::opt_o eq 'kay') {

+	    my $age = time - $patchlevel_date;

+	    if ($::opt_o eq 'k' and $age > 60 * 24 * 60 * 60 ) {

+		my $date = localtime $patchlevel_date;

+		print <<"EOF";

+"perlbug -ok" and "perlbug -nok" do not report on Perl versions which

+are more than 60 days old.  This Perl version was constructed on

+$date.  If you really want to report this, use

+"perlbug -okay" or "perlbug -nokay".

+EOF

+		exit();

+	    }

+	    # force these options

+	    unless ($::opt_n) {

+		$::opt_S = 1; # don't prompt for send

+		$::opt_b = 1; # we have a body

+		$body = "Perl reported to build OK on this system.\n";

+	    }

+	    $::opt_C = 1; # don't send a copy to the local admin

+	    $::opt_s = 1; # we have a subject line

+	    $subject = ($::opt_n ? 'Not ' : '')

+		    . "OK: perl $perl_version ${patch_tags}on"

+		    ." $::Config{'archname'} $::Config{'osvers'} $subject";

+	    $ok = 'ok';

+	} else {

+	    Help();

+	    exit();

+	}

+    }

+

+    # Possible administrator addresses, in order of confidence

+    # (Note that cf_email is not mentioned to metaconfig, since

+    # we don't really want it. We'll just take it if we have to.)

+    #

+    # This has to be after the $ok stuff above because of the way

+    # that $::opt_C is forced.

+    $cc = $::opt_C ? "" : (

+	$::opt_c || $::Config{'perladmin'}

+	|| $::Config{'cf_email'} || $::Config{'cf_by'}

+    );

+

+    if ($::HaveUtil) {

+		$domain = Mail::Util::maildomain();

+    } elsif ($Is_MSWin32) {

+		$domain = $ENV{'USERDOMAIN'};

+    } else {

+		require Sys::Hostname;

+		$domain = Sys::Hostname::hostname();

+    }

+

+    # Message-Id - rjsf

+    $messageid = "<$::Config{'version'}_${$}_".time."\@$domain>"; 

+

+    # My username

+    $me = $Is_MSWin32 ? $ENV{'USERNAME'}

+	    : $^O eq 'os2' ? $ENV{'USER'} || $ENV{'LOGNAME'}

+	    : $Is_MacOS ? $ENV{'USER'}

+	    : eval { getpwuid($<) };	# May be missing

+

+    $from = $::Config{'cf_email'}

+       if !$from && $::Config{'cf_email'} && $::Config{'cf_by'} && $me &&

+               ($me eq $::Config{'cf_by'});

+} # sub Init

+

+sub Query {

+    # Explain what perlbug is

+    unless ($ok) {

+	if ($thanks) {

+	    paraprint <<'EOF';

+This program provides an easy way to send a thank-you message back to the

+authors and maintainers of perl.

+

+If you wish to submit a bug report, please run it without the -T flag

+(or run the program perlbug rather than perlthanks)

+EOF

+	} else {

+	    paraprint <<"EOF";

+This program provides an easy way to create a message reporting a

+bug in the core perl distribution (along with tests or patches)

+to the volunteers who maintain perl at $address.  To send a thank-you

+note to $thanksaddress instead of a bug report, please run 'perlthanks'.

+

+Please do not use $0 to send test messages, test whether perl

+works, or to report bugs in perl modules from CPAN.

+

+For help using perl, try posting to the Usenet newsgroup 

+comp.lang.perl.misc.

+EOF

+	}

+    }

+

+    # Prompt for subject of message, if needed

+    

+    if ($subject && TrivialSubject($subject)) {

+	$subject = '';

+    }

+

+    unless ($subject) {

+	    print 

+"First of all, please provide a subject for the message.\n";

+	if ( not $thanks)  {

+	    paraprint <<EOF;

+This should be a concise description of your bug or problem

+which will help the volunteers working to improve perl to categorize

+and resolve the issue.  Be as specific and descriptive as

+you can. A subject like "perl bug" or "perl problem" will make it

+much less likely that your issue gets the attention it deserves.

+EOF

+	}

+

+	my $err = 0;

+	do {

+        $subject = _prompt('','Subject');

+	    if ($err++ == 5) {

+		if ($thanks) {

+		    $subject = 'Thanks for Perl';

+		} else {

+		    die "Aborting.\n";

+		}

+	    }

+	} while (TrivialSubject($subject));

+    }

+

+    # Prompt for return address, if needed

+    unless ($from) {

+	# Try and guess return address

+	my $guess;

+

+	$guess = $ENV{'REPLY-TO'} || $ENV{'REPLYTO'} || '';

+        if ($Is_MacOS) {

+            require Mac::InternetConfig;

+            $guess = $Mac::InternetConfig::InternetConfig{

+                Mac::InternetConfig::kICEmail()

+            };

+        }

+

+	unless ($guess) {

+		# move $domain to where we can use it elsewhere	

+        if ($domain) {

+		if ($Is_VMS && !$::Config{'d_socket'}) {

+		    $guess = "$domain\:\:$me";

+		} else {

+		    $guess = "$me\@$domain" if $domain;

+		}

+	    }

+	}

+

+	if ($guess) {

+	    unless ($ok) {

+		paraprint <<EOF;

+Perl's developers may need your email address to contact you for

+further information about your issue or to inform you when it is

+resolved.  If the default shown is not your email address, please

+correct it.

+EOF

+	    }

+	} else {

+	    paraprint <<EOF;

+Please enter your full internet email address so that Perl's

+developers can contact you with questions about your issue or to

+inform you that it has been resolved.

+EOF

+	}

+

+	if ($ok && $guess) {

+	    # use it

+	    $from = $guess;

+	} else {

+	    # verify it

+        $from = _prompt('','Your address',$guess);

+	    $from = $guess if $from eq '';

+	}

+    }

+

+    if ($from eq $cc or $me eq $cc) {

+	# Try not to copy ourselves

+	$cc = "yourself";

+    }

+

+    # Prompt for administrator address, unless an override was given

+    if( !$::opt_C and !$::opt_c ) {

+	my $description =  <<EOF;

+$0 can send a copy of this report to your local perl

+administrator.  If the address below is wrong, please correct it,

+or enter 'none' or 'yourself' to not send a copy.

+EOF

+	my $entry = _prompt($description, "Local perl administrator", $cc);

+

+	if ($entry ne "") {

+	    $cc = $entry;

+	    $cc = '' if $me eq $cc;

+	}

+    }

+

+    $cc = '' if $cc =~ /^(none|yourself|me|myself|ourselves)$/i;

+    if ($cc) { 

+        $andcc = " and $cc" 

+    } else {

+        $andcc = ''

+    }

+

+    # Prompt for editor, if no override is given

+editor:

+    unless ($::opt_e || $::opt_f || $::opt_b) {

+

+    my $description;

+

+	chomp (my $common_end = <<"EOF");

+You will probably want to use a text editor to enter the body of

+your report. If "$ed" is the editor you want to use, then just press

+Enter, otherwise type in the name of the editor you would like to

+use.

+

+If you have already composed the body of your report, you may enter

+"file", and $0 will prompt you to enter the name of the file

+containing your report.

+EOF

+

+	if ($thanks) {

+	    $description = <<"EOF";

+It's now time to compose your thank-you message.

+

+Some information about your local perl configuration will automatically

+be included at the end of your message, because we're curious about

+the different ways that people build and use perl. If you'd rather

+not share this information, you're welcome to delete it.

+

+$common_end

+EOF

+	} else {

+	    $description =  <<"EOF";

+It's now time to compose your bug report. Try to make the report

+concise but descriptive. Please include any detail which you think

+might be relevant or might help the volunteers working to improve

+perl. If you are reporting something that does not work as you think

+it should, please try to include examples of the actual result and of

+what you expected.

+

+Some information about your local perl configuration will automatically

+be included at the end of your report. If you are using an unusual

+version of perl, it would be useful if you could confirm that you

+can replicate the problem on a standard build of perl as well.

+

+$common_end

+EOF

+	}

+

+    my $entry = _prompt($description, "Editor", $ed);

+	$usefile = 0;

+	if ($entry eq "file") {

+	    $usefile = 1;

+	} elsif ($entry ne "") {

+	    $ed = $entry;

+	}

+    }

+    if ($::HaveCoreList && !$ok && !$thanks) {

+	my $description =  <<EOF;

+If your bug is about a Perl module rather than a core language

+feature, please enter its name here. If it's not, just hit Enter

+to skip this question.

+EOF

+

+    my $entry = '';

+	while ($entry eq '') {

+        $entry = _prompt($description, 'Module');

+	    my $first_release = Module::CoreList->first_release($entry);

+	    if ($entry and not $first_release) {

+		paraprint <<EOF;

+$entry is not a "core" Perl module. Please check that you entered

+its name correctly. If it is correct, quit this program, try searching

+for $entry on http://rt.cpan.org, and report your issue there.

+EOF

+

+            $entry = '';

+        } elsif ($entry) {

+	        $category ||= 'library';

+	        $report_about_module = $entry;

+            last;

+        } else {

+            last;

+        }

+	}

+    }

+

+    # Prompt for category of bug

+    $category ||= ask_for_alternatives('category');

+

+    # Prompt for severity of bug

+    $severity ||= ask_for_alternatives('severity');

+

+    # Generate scratch file to edit report in

+    $filename = filename();

+

+    # Prompt for file to read report from, if needed

+    if ($usefile and !$file) {

+filename:

+	my $description = <<EOF;

+What is the name of the file that contains your report?

+EOF

+	my $entry = _prompt($description, "Filename");

+

+	if ($entry eq "") {

+	    paraprint <<EOF;

+It seems you didn't enter a filename. Please choose to use a text

+editor or enter a filename.

+EOF

+	    goto editor;

+	}

+

+	unless (-f $entry and -r $entry) {

+	    paraprint <<EOF;

+'$entry' doesn't seem to be a readable file.  You may have mistyped

+its name or may not have permission to read it.

+

+If you don't want to use a file as the content of your report, just

+hit Enter and you'll be able to select a text editor instead.

+EOF

+	    goto filename;

+	}

+	$file = $entry;

+    }

+

+    # Generate report

+    open(REP,">$filename") or die "Unable to create report file '$filename': $!\n";

+    my $reptype = !$ok ? ($thanks ? 'thank-you' : 'bug')

+	: $::opt_n ? "build failure" : "success";

+

+    print REP <<EOF;

+This is a $reptype report for perl from $from,

+generated with the help of perlbug $Version running under perl $perl_version.

+

+EOF

+

+    if ($body) {

+	print REP $body;

+    } elsif ($usefile) {

+	open(F, "<$file")

+		or die "Unable to read report file from '$file': $!\n";

+	while (<F>) {

+	    print REP $_

+	}

+	close(F) or die "Error closing '$file': $!";

+    } else {

+	if ($thanks) {

+	    print REP <<'EOF';

+

+-----------------------------------------------------------------

+[Please enter your thank-you message here]

+

+

+

+[You're welcome to delete anything below this line]

+-----------------------------------------------------------------

+EOF

+	} else {

+	    print REP <<'EOF';

+

+-----------------------------------------------------------------

+[Please describe your issue here]

+

+

+

+[Please do not change anything below this line]

+-----------------------------------------------------------------

+EOF

+	}

+    }

+    Dump(*REP);

+    close(REP) or die "Error closing report file: $!";

+

+    # Set up an initial report fingerprint so we can compare it later

+    _fingerprint_lines_in_report();

+

+} # sub Query

+

+sub Dump {

+    local(*OUT) = @_;

+

+    print OUT <<EFF;

+---

+Flags:

+    category=$category

+    severity=$severity

+EFF

+

+    if ($report_about_module ) { 

+        print OUT <<EFF;

+    module=$report_about_module

+EFF

+    }

+    if ($::opt_A) {

+	print OUT <<EFF;

+    ack=no

+EFF

+    }

+    print OUT <<EFF;

+---

+EFF

+    print OUT "This perlbug was built using Perl $config_tag1\n",

+	    "It is being executed now by  Perl $config_tag2.\n\n"

+	if $config_tag2 ne $config_tag1;

+

+    print OUT <<EOF;

+Site configuration information for perl $perl_version:

+

+EOF

+    if ($::Config{cf_by} and $::Config{cf_time}) {

+	print OUT "Configured by $::Config{cf_by} at $::Config{cf_time}.\n\n";

+    }

+    print OUT Config::myconfig;

+

+    if (@patches) {

+	print OUT join "\n    ", "Locally applied patches:", @patches;

+	print OUT "\n";

+    };

+

+    print OUT <<EOF;

+

+---

+\@INC for perl $perl_version:

+EOF

+    for my $i (@INC) {

+	print OUT "    $i\n";

+    }

+

+    print OUT <<EOF;

+

+---

+Environment for perl $perl_version:

+EOF

+    my @env =

+        qw(PATH LD_LIBRARY_PATH LANG PERL_BADLANG SHELL HOME LOGDIR LANGUAGE);

+    push @env, $Config{ldlibpthname} if $Config{ldlibpthname} ne '';

+    push @env, grep /^(?:PERL|LC_|LANG|CYGWIN)/, keys %ENV;

+    my %env;

+    @env{@env} = @env;

+    for my $env (sort keys %env) {

+	print OUT "    $env",

+		exists $ENV{$env} ? "=$ENV{$env}" : ' (unset)',

+		"\n";

+    }

+    if ($verbose) {

+	print OUT "\nComplete configuration data for perl $perl_version:\n\n";

+	my $value;

+	foreach (sort keys %::Config) {

+	    $value = $::Config{$_};

+	    $value =~ s/'/\\'/g;

+	    print OUT "$_='$value'\n";

+	}

+    }

+} # sub Dump

+

+sub Edit {

+    # Edit the report

+    if ($usefile || $body) {

+	my $description = "Please make sure that the name of the editor you want to use is correct.";

+	my $entry = _prompt($description, 'Editor', $ed);

+	$ed = $entry unless $entry eq '';

+    }

+

+    _edit_file($ed);

+}

+

+sub _edit_file {

+    my $editor = shift;

+

+    my $report_written = 0;

+

+    while ( !$report_written ) {

+        if ($Is_MacOS) {

+            require ExtUtils::MakeMaker;

+            ExtUtils::MM_MacOS::launch_file($filename);

+            _prompt('', "Press Enter when done." );

+        } else {    # we're not on oldschool mac os

+            my $exit_status = system("$editor $filename");

+            if ($exit_status) {

+                my $desc = <<EOF;

+The editor you chose ('$editor') could not be run!

+

+If you mistyped its name, please enter it now, otherwise just press Enter.

+EOF

+                my $entry = _prompt( $desc, 'Editor', $editor );

+                if ( $entry ne "" ) {

+                    $editor = $entry;

+                    next;

+                } else {

+                    paraprint <<EOF;

+You may want to save your report to a file, so you can edit and

+mail it later.

+EOF

+                    return;

+                }

+            }

+        }

+        return if ( $ok and not $::opt_n ) || $body;

+

+        # Check that we have a report that has some, eh, report in it.

+

+        unless ( _fingerprint_lines_in_report() ) {

+            my $description = <<EOF;

+It looks like you didn't enter a report. You may [r]etry your edit

+or [c]ancel this report.

+EOF

+            my $action = _prompt( $description, "Action (Retry/Cancel) " );

+            if ( $action =~ /^[re]/i ) {    # <R>etry <E>dit

+                next;

+            } elsif ( $action =~ /^[cq]/i ) {    # <C>ancel, <Q>uit

+                Cancel();                        # cancel exits

+            }

+        }

+        # Ok. the user did what they needed to;

+        return;

+

+    }

+}

+

+

+sub Cancel {

+    1 while unlink($filename);  # remove all versions under VMS

+    print "\nQuitting without sending your message.\n";

+    exit(0);

+}

+

+sub NowWhat {

+    # Report is done, prompt for further action

+    if( !$::opt_S ) {

+	while(1) {

+	    my $menu = <<EOF;

+

+

+You have finished composing your message. At this point, you have 

+a few options. You can:

+

+    * [Se]end the message to $address$andcc, 

+    * [D]isplay the message on the screen,

+    * [R]e-edit the message

+    * Display or change the message's [su]bject

+    * Save the message to a [f]ile to mail at another time

+    * [Q]uit without sending a message

+

+EOF

+      retry:

+        print $menu;

+	    my $action =  _prompt('', "Action (Send/Display/Edit/Subject/Save to File)");;

+        print "\n";

+	    if ($action =~ /^(f|sa)/i) { # <F>ile/<Sa>ve

+            if ( SaveMessage() ) { exit }

+	    } elsif ($action =~ /^(d|l|sh)/i ) { # <D>isplay, <L>ist, <Sh>ow

+		# Display the message

+		open(REP, "<$filename") or die "Couldn't open file '$filename': $!\n";

+		while (<REP>) { print $_ }

+		close(REP) or die "Error closing report file '$filename': $!";

+	    } elsif ($action =~ /^su/i) { # <Su>bject

+		my $reply = _prompt( "Subject: $subject", "If the above subject is fine, press Enter. Otherwise, type a replacement now\nSubject");

+		if ($reply ne '') {

+		    unless (TrivialSubject($reply)) {

+			$subject = $reply;

+			print "Subject: $subject\n";

+		    }

+		}

+	    } elsif ($action =~ /^se/i) { # <S>end

+		# Send the message

+		my $reply =  _prompt( "Are you certain you want to send this message?", 'Please type "yes" if you are','no');

+		if ($reply =~ /^yes$/) {

+		    last;

+		} else {

+		    paraprint <<EOF;

+You didn't type "yes", so your message has not yet been sent.

+EOF

+		}

+	    } elsif ($action =~ /^[er]/i) { # <E>dit, <R>e-edit

+		# edit the message

+		Edit();

+	    } elsif ($action =~ /^[qc]/i) { # <C>ancel, <Q>uit

+		Cancel();

+	    } elsif ($action =~ /^s/i) {

+		paraprint <<EOF;

+The command you entered was ambiguous. Please type "send", "save" or "subject".

+EOF

+	    }

+	}

+    }

+} # sub NowWhat

+

+sub TrivialSubject {

+    my $subject = shift;

+    if ($subject =~

+	/^(y(es)?|no?|help|perl( (bug|problem))?|bug|problem)$/i ||

+	length($subject) < 4 ||

+	$subject !~ /\s/) {

+	print "\nThe subject you entered wasn't very descriptive. Please try again.\n\n";

+        return 1;

+    } else {

+	return 0;

+    }

+}

+

+sub SaveMessage {

+    my $file_save = $outfile || "$progname.rep";

+    my $file = _prompt( '', "Name of file to save message in", $file_save );

+    save_message_to_disk($file) || return undef;

+    print "\n";

+    paraprint <<EOF;

+A copy of your message has been saved in '$file' for you to

+send to '$address' with your normal mail client.

+EOF

+}

+

+sub Send {

+

+    # Message has been accepted for transmission -- Send the message

+

+    # on linux certain "mail" implementations won't accept the subject

+    # as "~s subject" and thus the Subject header will be corrupted

+    # so don't use Mail::Send to be safe

+    eval {

+        if ( $::HaveSend && !$Is_Linux && !$Is_OpenBSD ) {

+            _send_message_mailsend();

+        } elsif ($Is_VMS) {

+            _send_message_vms();

+        } else {

+            _send_message_sendmail();

+        }

+    };

+

+    if ( my $error = $@ ) {

+        paraprint <<EOF;

+$0 has detected an error while trying to send your message: $error.

+

+Your message may not have been sent. You will now have a chance to save a copy to disk.

+EOF

+        SaveMessage();

+        return;

+    }

+

+    1 while unlink($filename);    # remove all versions under VMS

+}    # sub Send

+

+sub Help {

+    print <<EOF;

+

+This program is designed to help you generate and send bug reports

+(and thank-you notes) about perl5 and the modules which ship with it.

+

+In most cases, you can just run "$0" interactively from a command

+line without any special arguments and follow the prompts.

+

+Advanced usage:

+

+$0  [-v] [-a address] [-s subject] [-b body | -f inpufile ] [ -F outputfile ]

+    [-r returnaddress] [-e editor] [-c adminaddress | -C] [-S] [-t] [-h]

+$0  [-v] [-r returnaddress] [-A] [-ok | -okay | -nok | -nokay]

+

+

+Options:

+

+  -v    Include Verbose configuration data in the report

+  -f    File containing the body of the report. Use this to

+        quickly send a prepared message.

+  -F    File to output the resulting mail message to, instead of mailing.

+  -S    Send without asking for confirmation.

+  -a    Address to send the report to. Defaults to '$address'.

+  -c    Address to send copy of report to. Defaults to '$cc'.

+  -C    Don't send copy to administrator.

+  -s    Subject to include with the message. You will be prompted

+        if you don't supply one on the command line.

+  -b    Body of the report. If not included on the command line, or

+        in a file with -f, you will get a chance to edit the message.

+  -r    Your return address. The program will ask you to confirm

+        this if you don't give it here.

+  -e    Editor to use.

+  -t    Test mode. The target address defaults to '$testaddress'.

+  -T    Thank-you mode. The target address defaults to '$thanksaddress'.

+  -d    Data mode.  This prints out your configuration data, without mailing

+        anything. You can use this with -v to get more complete data.

+  -A    Don't send a bug received acknowledgement to the return address.

+  -ok   Report successful build on this system to perl porters

+        (use alone or with -v). Only use -ok if *everything* was ok:

+        if there were *any* problems at all, use -nok.

+  -okay As -ok but allow report from old builds.

+  -nok  Report unsuccessful build on this system to perl porters

+        (use alone or with -v). You must describe what went wrong

+        in the body of the report which you will be asked to edit.

+  -nokay As -nok but allow report from old builds.

+  -h    Print this help message.

+

+EOF

+}

+

+sub filename {

+    if ($::HaveTemp) {

+	# Good. Use a secure temp file

+	my ($fh, $filename) = File::Temp::tempfile(UNLINK => 1);

+	close($fh);

+	return $filename;

+    } else {

+	# Bah. Fall back to doing things less securely.

+	my $dir = File::Spec->tmpdir();

+	$filename = "bugrep0$$";

+	$filename++ while -e File::Spec->catfile($dir, $filename);

+	$filename = File::Spec->catfile($dir, $filename);

+    }

+}

+

+sub paraprint {

+    my @paragraphs = split /\n{2,}/, "@_";

+    for (@paragraphs) {   # implicit local $_

+	s/(\S)\s*\n/$1 /g;

+	write;

+	print "\n";

+    }

+}

+

+sub _prompt {

+    my ($explanation, $prompt, $default) = (@_);

+    if ($explanation) {

+        print "\n\n";

+        paraprint $explanation;

+    }

+    print $prompt. ($default ? " [$default]" :''). ": ";

+	my $result = scalar(<>);

+    chomp($result);

+	$result =~ s/^\s*(.*?)\s*$/$1/s;

+    if ($default && $result eq '') {

+        return $default;

+    } else {

+        return $result;

+    }

+}

+

+sub _build_header {

+    my %attr = (@_);

+

+    my $head = '';

+    for my $header (keys %attr) {

+        $head .= "$header: ".$attr{$header}."\n";

+    }

+    return $head;

+}

+

+sub _message_headers {

+    my %headers = ( To => $address, Subject => $subject );

+    $headers{'Cc'}         = $cc        if ($cc);

+    $headers{'Message-Id'} = $messageid if ($messageid);

+    $headers{'Reply-To'}   = $from      if ($from);

+    return \%headers;

+}

+

+sub build_complete_message {

+    my $content = _build_header(%{_message_headers()}) . "\n\n";

+    open( REP, "<$filename" ) or die "Couldn't open file '$filename': $!\n";

+    while (<REP>) { $content .= $_; }

+    close(REP) or die "Error closing report file '$filename': $!";

+    return $content;

+}

+

+sub save_message_to_disk {

+    my $file = shift;

+

+	    open OUTFILE, ">$file" or do { warn  "Couldn't open '$file': $!\n"; return undef};

+        print OUTFILE build_complete_message();

+        close(OUTFILE) or do { warn  "Error closing $file: $!"; return undef };

+	    print "\nMessage saved.\n";

+        return 1;

+}

+

+sub _send_message_vms {

+    if (   ( $address =~ /@/ and $address !~ /^\w+%"/ )

+        or ( $cc =~ /@/ and $cc !~ /^\w+%"/ ) ) {

+        my $prefix;

+        foreach ( qw[ IN MX SMTP UCX PONY WINS ], '' ) {

+            $prefix = "$_%", last if $ENV{"MAIL\$PROTOCOL_$_"};

+        }

+        $address = qq[${prefix}"$address"] unless $address =~ /^\w+%"/;

+        $cc = qq[${prefix}"$cc"] unless !$cc || $cc =~ /^\w+%"/;

+    }

+    $subject =~ s/"/""/g;

+    $address =~ s/"/""/g;

+    $cc      =~ s/"/""/g;

+    my $sts = system(qq[mail/Subject="$subject" $filename. "$address","$cc"]);

+    if ($sts) {

+        die "Can't spawn off mail (leaving bug report in $filename): $sts";

+    }

+}

+

+sub _send_message_mailsend {

+    my $msg = Mail::Send->new();

+    my %headers = %{_message_headers()};

+    for my $key ( keys %headers) {

+        $msg->add($key => $headers{$key});

+    }

+

+    $fh = $msg->open;

+    open(REP, "<$filename") or die "Couldn't open '$filename': $!\n";

+    while (<REP>) { print $fh $_ }

+    close(REP) or die "Error closing $filename: $!";

+    $fh->close;

+

+    print "\nMessage sent.\n";

+}

+

+sub _probe_for_sendmail {

+    my $sendmail = "";

+    for (qw(/usr/lib/sendmail /usr/sbin/sendmail /usr/ucblib/sendmail)) {

+        $sendmail = $_, last if -e $_;

+    }

+    if ( $^O eq 'os2' and $sendmail eq "" ) {

+        my $path = $ENV{PATH};

+        $path =~ s:\\:/:;

+        my @path = split /$Config{'path_sep'}/, $path;

+        for (@path) {

+            $sendmail = "$_/sendmail",     last if -e "$_/sendmail";

+            $sendmail = "$_/sendmail.exe", last if -e "$_/sendmail.exe";

+        }

+    }

+    return $sendmail;

+}

+

+sub _send_message_sendmail {

+    my $sendmail = _probe_for_sendmail();

+    unless ($sendmail) {

+        paraprint(<<"EOF"), die "\n";

+It appears that there is no program which looks like "sendmail" on

+your system and that the Mail::Send library from CPAN isn't available.

+Because of this, there's no easy way to automatically send your

+message.

+

+A copy of your message has been saved in '$filename' for you to

+send to '$address' with your normal mail client.

+EOF

+    }

+

+    open( SENDMAIL, "|$sendmail -t -oi" )

+        || die "'|$sendmail -t -oi' failed: $!";

+    print SENDMAIL build_complete_message();

+    if ( close(SENDMAIL) ) {

+        print "\nMessage sent\n";

+    } else {

+        warn "\nSendmail returned status '", $? >> 8, "'\n";

+    }

+}

+

+

+

+# a strange way to check whether any significant editing

+# has been done: check whether any new non-empty lines

+# have been added.

+

+sub _fingerprint_lines_in_report {

+    my $new_lines = 0;

+    # read in the report template once so that

+    # we can track whether the user does any editing.

+    # yes, *all* whitespace is ignored.

+

+    open(REP, "<$filename") or die "Unable to open report file '$filename': $!\n";

+    while (my $line = <REP>) {

+        $line =~ s/\s+//g;

+        $new_lines++ if (!$REP{$line});

+

+    }

+    close(REP) or die "Error closing report file '$filename': $!";

+    # returns the number of lines with content that wasn't there when last we looked

+    return $new_lines;

+}

+

+

+

+format STDOUT =

+^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~

+$_

+.

+

+__END__

+

+=head1 NAME

+

+perlbug - how to submit bug reports on Perl

+

+=head1 SYNOPSIS

+

+B<perlbug>

+

+B<perlbug> S<[ B<-v> ]> S<[ B<-a> I<address> ]> S<[ B<-s> I<subject> ]>

+S<[ B<-b> I<body> | B<-f> I<inputfile> ]> S<[ B<-F> I<outputfile> ]>

+S<[ B<-r> I<returnaddress> ]>

+S<[ B<-e> I<editor> ]> S<[ B<-c> I<adminaddress> | B<-C> ]>

+S<[ B<-S> ]> S<[ B<-t> ]>  S<[ B<-d> ]>  S<[ B<-A> ]>  S<[ B<-h> ]> S<[ B<-T> ]>

+

+B<perlbug> S<[ B<-v> ]> S<[ B<-r> I<returnaddress> ]>

+ S<[ B<-A> ]> S<[ B<-ok> | B<-okay> | B<-nok> | B<-nokay> ]>

+

+B<perlthanks>

+

+=head1 DESCRIPTION

+

+

+This program is designed to help you generate and send bug reports

+(and thank-you notes) about perl5 and the modules which ship with it.

+

+In most cases, you can just run it interactively from a command

+line without any special arguments and follow the prompts.

+

+If you have found a bug with a non-standard port (one that was not

+part of the I<standard distribution>), a binary distribution, or a

+non-core module (such as Tk, DBI, etc), then please see the

+documentation that came with that distribution to determine the

+correct place to report bugs.

+

+If you are unable to send your report using B<perlbug> (most likely

+because your system doesn't have a way to send mail that perlbug

+recognizes), you may be able to use this tool to compose your report

+and save it to a file which you can then send to B<perlbug@perl.org>

+using your regular mail client.

+

+In extreme cases, B<perlbug> may not work well enough on your system

+to guide you through composing a bug report. In those cases, you

+may be able to use B<perlbug -d> to get system configuration

+information to include in a manually composed bug report to

+B<perlbug@perl.org>.

+

+

+When reporting a bug, please run through this checklist:

+

+=over 4

+

+=item What version of Perl you are running?

+

+Type C<perl -v> at the command line to find out.

+

+=item Are you running the latest released version of perl?

+

+Look at http://www.perl.org/ to find out.  If you are not using the

+latest released version, please try to replicate your bug on the

+latest stable release.

+

+Note that reports about bugs in old versions of Perl, especially

+those which indicate you haven't also tested the current stable

+release of Perl, are likely to receive less attention from the

+volunteers who build and maintain Perl than reports about bugs in

+the current release.

+

+This tool isn't apropriate for reporting bugs in any version

+prior to Perl 5.0.

+

+=item Are you sure what you have is a bug?

+

+A significant number of the bug reports we get turn out to be

+documented features in Perl.  Make sure the issue you've run into

+isn't intentional by glancing through the documentation that comes

+with the Perl distribution.

+

+Given the sheer volume of Perl documentation, this isn't a trivial

+undertaking, but if you can point to documentation that suggests

+the behaviour you're seeing is I<wrong>, your issue is likely to

+receive more attention. You may want to start with B<perldoc>

+L<perltrap> for pointers to common traps that new (and experienced)

+Perl programmers run into.

+

+If you're unsure of the meaning of an error message you've run

+across, B<perldoc> L<perldiag> for an explanation.  If the message

+isn't in perldiag, it probably isn't generated by Perl.  You may

+have luck consulting your operating system documentation instead.

+

+If you are on a non-UNIX platform B<perldoc> L<perlport>, as some

+features may be unimplemented or work differently.

+

+You may be able to figure out what's going wrong using the Perl

+debugger.  For information about how to use the debugger B<perldoc>

+L<perldebug>.

+

+=item Do you have a proper test case?

+

+The easier it is to reproduce your bug, the more likely it will be

+fixed -- if nobody can duplicate your problem, it probably won't be 

+addressed.

+

+A good test case has most of these attributes: short, simple code;

+few dependencies on external commands, modules, or libraries; no

+platform-dependent code (unless it's a platform-specific bug);

+clear, simple documentation.

+

+A good test case is almost always a good candidate to be included in

+Perl's test suite.  If you have the time, consider writing your test case so

+that it can be easily included into the standard test suite.

+

+=item Have you included all relevant information?

+

+Be sure to include the B<exact> error messages, if any.

+"Perl gave an error" is not an exact error message.

+

+If you get a core dump (or equivalent), you may use a debugger

+(B<dbx>, B<gdb>, etc) to produce a stack trace to include in the bug

+report.  

+

+NOTE: unless your Perl has been compiled with debug info

+(often B<-g>), the stack trace is likely to be somewhat hard to use

+because it will most probably contain only the function names and not

+their arguments.  If possible, recompile your Perl with debug info and

+reproduce the crash and the stack trace.

+

+=item Can you describe the bug in plain English?

+

+The easier it is to understand a reproducible bug, the more likely

+it will be fixed.  Any insight you can provide into the problem

+will help a great deal.  In other words, try to analyze the problem

+(to the extent you can) and report your discoveries.

+

+=item Can you fix the bug yourself?

+

+A bug report which I<includes a patch to fix it> will almost

+definitely be fixed.  When sending a patch, please use the C<diff>

+program with the C<-u> option to generate "unified" diff files.

+Bug reports with patches are likely to receive significantly more

+attention and interest than those without patches.

+

+Your patch may be returned with requests for changes, or requests for more

+detailed explanations about your fix.

+

+Here are a few hints for creating high-quality patches:

+

+Make sure the patch is not reversed (the first argument to diff is

+typically the original file, the second argument your changed file).

+Make sure you test your patch by applying it with the C<patch>

+program before you send it on its way.  Try to follow the same style

+as the code you are trying to patch.  Make sure your patch really

+does work (C<make test>, if the thing you're patching is covered

+by Perl's test suite).

+

+=item Can you use C<perlbug> to submit the report?

+

+B<perlbug> will, amongst other things, ensure your report includes

+crucial information about your version of perl.  If C<perlbug> is

+unable to mail your report after you have typed it in, you may have

+to compose the message yourself, add the output produced by C<perlbug

+-d> and email it to B<perlbug@perl.org>.  If, for some reason, you

+cannot run C<perlbug> at all on your system, be sure to include the

+entire output produced by running C<perl -V> (note the uppercase V).

+

+Whether you use C<perlbug> or send the email manually, please make

+your Subject line informative.  "a bug" is not informative.  Neither

+is "perl crashes" nor is "HELP!!!".  These don't help.  A compact

+description of what's wrong is fine.

+

+=item Can you use C<perlbug> to submit a thank-you note?

+

+Yes, you can do this by either using the C<-T> option, or by invoking

+the program as C<perlthanks>. Thank-you notes are good. It makes people

+smile. 

+

+=back

+

+Having done your bit, please be prepared to wait, to be told the

+bug is in your code, or possibly to get no reply at all.  The

+volunteers who maintain Perl are busy folks, so if your problem is

+an obvious bug in your own code, is difficult to understand or is

+a duplicate of an existing report, you may not receive a personal

+reply.

+

+If it is important to you that your bug be fixed, do monitor the

+perl5-porters@perl.org mailing list and the commit logs to development

+versions of Perl, and encourage the maintainers with kind words or

+offers of frosty beverages.  (Please do be kind to the maintainers.

+Harassing or flaming them is likely to have the opposite effect of

+the one you want.)

+

+Feel free to update the ticket about your bug on http://rt.perl.org

+if a new version of Perl is released and your bug is still present.

+

+=head1 OPTIONS

+

+=over 8

+

+=item B<-a>

+

+Address to send the report to.  Defaults to B<perlbug@perl.org>.

+

+=item B<-A>

+

+Don't send a bug received acknowledgement to the reply address.

+Generally it is only a sensible to use this option if you are a

+perl maintainer actively watching perl porters for your message to

+arrive.

+

+=item B<-b>

+

+Body of the report.  If not included on the command line, or

+in a file with B<-f>, you will get a chance to edit the message.

+

+=item B<-C>

+

+Don't send copy to administrator.

+

+=item B<-c>

+

+Address to send copy of report to.  Defaults to the address of the

+local perl administrator (recorded when perl was built).

+

+=item B<-d>

+

+Data mode (the default if you redirect or pipe output).  This prints out

+your configuration data, without mailing anything.  You can use this

+with B<-v> to get more complete data.

+

+=item B<-e>

+

+Editor to use.

+

+=item B<-f>

+

+File containing the body of the report.  Use this to quickly send a

+prepared message.

+

+=item B<-F>

+

+File to output the results to instead of sending as an email. Useful

+particularly when running perlbug on a machine with no direct internet

+connection.

+

+=item B<-h>

+

+Prints a brief summary of the options.

+

+=item B<-ok>

+

+Report successful build on this system to perl porters. Forces B<-S>

+and B<-C>. Forces and supplies values for B<-s> and B<-b>. Only

+prompts for a return address if it cannot guess it (for use with

+B<make>). Honors return address specified with B<-r>.  You can use this

+with B<-v> to get more complete data.   Only makes a report if this

+system is less than 60 days old.

+

+=item B<-okay>

+

+As B<-ok> except it will report on older systems.

+

+=item B<-nok>

+

+Report unsuccessful build on this system.  Forces B<-C>.  Forces and

+supplies a value for B<-s>, then requires you to edit the report

+and say what went wrong.  Alternatively, a prepared report may be

+supplied using B<-f>.  Only prompts for a return address if it

+cannot guess it (for use with B<make>). Honors return address

+specified with B<-r>.  You can use this with B<-v> to get more

+complete data.  Only makes a report if this system is less than 60

+days old.

+

+=item B<-nokay>

+

+As B<-nok> except it will report on older systems.

+

+=item B<-r>

+

+Your return address.  The program will ask you to confirm its default

+if you don't use this option.

+

+=item B<-S>

+

+Send without asking for confirmation.

+

+=item B<-s>

+

+Subject to include with the message.  You will be prompted if you don't

+supply one on the command line.

+

+=item B<-t>

+

+Test mode.  The target address defaults to B<perlbug-test@perl.org>.

+

+=item B<-T>

+

+Send a thank-you note instead of a bug report. 

+

+=item B<-v>

+

+Include verbose configuration data in the report.

+

+=back

+

+=head1 AUTHORS

+

+Kenneth Albanowski (E<lt>kjahds@kjahds.comE<gt>), subsequently

+I<doc>tored by Gurusamy Sarathy (E<lt>gsar@activestate.comE<gt>),

+Tom Christiansen (E<lt>tchrist@perl.comE<gt>), Nathan Torkington

+(E<lt>gnat@frii.comE<gt>), Charles F. Randall (E<lt>cfr@pobox.comE<gt>),

+Mike Guy (E<lt>mjtg@cam.a.ukE<gt>), Dominic Dunlop

+(E<lt>domo@computer.orgE<gt>), Hugo van der Sanden (E<lt>hv@crypt.org<gt>),

+Jarkko Hietaniemi (E<lt>jhi@iki.fiE<gt>), Chris Nandor

+(E<lt>pudge@pobox.comE<gt>), Jon Orwant (E<lt>orwant@media.mit.eduE<gt>,

+Richard Foley (E<lt>richard.foley@rfi.netE<gt>), and Jesse Vincent

+(E<lt>jesse@bestpractical.com<gt>).

+

+=head1 SEE ALSO

+

+perl(1), perldebug(1), perldiag(1), perlport(1), perltrap(1),

+diff(1), patch(1), dbx(1), gdb(1)

+

+=head1 BUGS

+

+None known (guess what must have been used to report them?)

+

+=cut

+

+

+__END__

+:endofperl