diff options
| author | Kenneth Albanowski <kjahds@kjahds.com> | 1997-01-16 12:12:03 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-17 08:39:00 +1200 |
| commit | 8ecf1a0c30e79b498e0b4d268f6f2b74fc23c0ee (patch) | |
| tree | 73da6c3326db680ad80165fef3afc16e3c454982 /utils | |
| parent | 25268f1564cd55111fa2903d4311c37bdcc64633 (diff) | |
| download | perl-8ecf1a0c30e79b498e0b4d268f6f2b74fc23c0ee.tar.gz | |
Make perlbug more cautionary and more verbose
Signed-off-by: Kenneth Albanowski <kjahds@kjahds.com>
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlbug.PL | 25 |
1 files changed, 22 insertions, 3 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index ceda89d4d8..b44502bddb 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -48,7 +48,7 @@ use strict; sub paraprint; -my($Version) = "1.14"; +my($Version) = "1.15"; # 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. @@ -64,6 +64,8 @@ my($Version) = "1.14"; # 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. # TODO: Allow the user to re-name the file on mail failure, and # make sure failure (transmission-wise) of Mail::Send is @@ -160,8 +162,11 @@ sub Query { # Explain what perlbug is paraprint <<EOF; -This program provides an easy way to create a message reporting a bug in -perl, and e-mail it to $address. +This program provides an easy way to create a message reporting a bug +in perl, and e-mail it to $address. It is *NOT* intended for +sending test messages or simply verifying that perl works. It is *ONLY* +a means of reporting verifiable problems with perl, and any solutions to +such problems, to the people who maintain perl. EOF @@ -431,6 +436,20 @@ EOF print OUT "$_='$value'\n"; } } + print OUT <<EOF; + + +Environment for perl $]: +EOF + for my $env (qw(PATH LD_LIBRARY_PATH + PERL5LIB PERLLIB PERL5DB + LC_ALL LC_COLLATE LC_CTYPE LC_MONETARY LC_NUMERIC LC_TIME + LANG PERL_BADLANG + SHELL HOME LOGDIR)) { + print OUT " $env", + exists $ENV{$env} ? "=$ENV{$env}" : ' (unset)', + "\n"; + } } sub Edit { |