Ignore:
Timestamp:
10/21/14 22:06:53 (6 years ago)
Author:
ak19
Message:
  1. There's always a deprecation warning on the switch statement used in task.pl. Replaced with plain if-else block. 2. The perl version found by diffcol is written out to the xml version of the report (not the html version). This may help in detecting new changes.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • other-projects/nightly-tasks/diffcol/trunk/diffcol/diffcol.pl

    r28661 r29398  
    983983    #----##
    984984
     985# To find out what version of perl we're using
     986    if( $strOutputFormat eq "xml" ) {
     987        my $perloutput = `perl -v`;
     988        $perloutput =~ s@.*\((v\d+(\.\d+)*)\).*@$1@s;
     989        $ENV{'PATH'}="$ENV{'PERLPATH'}:$ENV{'PATH'}";       
     990        print "<perl-version>Perl version: $perloutput</perl-version>\n"; # die "<error>Perl version: $perloutput</error>\n";
     991    }
     992
    985993    #--Collection(s) Testing
    986994    foreach $strColName (@ARGV)
Note: See TracChangeset for help on using the changeset viewer.