[svn:parrot] r37138 - trunk/lib/Parrot/Harness

[rurban at svn.parrot.org]

Author: rurban
Date: Thu Mar  5 20:32:20 2009
New Revision: 37138
URL: https://trac.parrot.org/parrot/changeset/37138

Log:
[t] TT #323 one more smolder optimization
- MacOS and os2 not supported.
- default domain "unknown"

Modified:
   trunk/lib/Parrot/Harness/Smoke.pm

Modified: trunk/lib/Parrot/Harness/Smoke.pm
==============================================================================
--- trunk/lib/Parrot/Harness/Smoke.pm	Thu Mar  5 20:20:51 2009	(r37137)
+++ trunk/lib/Parrot/Harness/Smoke.pm	Thu Mar  5 20:32:20 2009	(r37138)
@@ -119,10 +119,8 @@
         ($branch) = $info =~ m{URL: .+/parrot/(\w+)$}m;
     }
     my $me = $^O eq 'MSWin32' ? $ENV{'USERNAME'}
-           : $^O eq 'os2' ? $ENV{'USER'} || $ENV{'LOGNAME'}
-           : $^O eq 'MacOS' ? $ENV{'USER'}
-           : eval { getpwuid($<) };
-    my $domain = '';
+           : $ENV{'LOGNAME'} || eval { getpwuid($<) };
+    my $domain = 'unknown';
     eval "use Mail::Util;";
     if (!$@) {
         $domain = Mail::Util::maildomain();
@@ -143,7 +141,7 @@
         'Platform'     => $PConfig{osname},
         'SVN Revision' => $PConfig{revision},
         'Version'      => $PConfig{VERSION},
-        'Submitter'    => "$me\@$domain"
+        'Submitter'    => $ENV{"SMOLDER_SUBMITTER"} || "$me\@$domain"
     );
     push @data, ( 'Branch' => $branch ) if $branch;
     push @data, ( 'Modifications' => join(" ", @mods) ) if @mods;