Changeset 29398 for other-projects/nightly-tasks/diffcol/trunk/diffcol
- Timestamp:
- 2014-10-21T22:06:53+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
other-projects/nightly-tasks/diffcol/trunk/diffcol/diffcol.pl
r28661 r29398 983 983 #----## 984 984 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 985 993 #--Collection(s) Testing 986 994 foreach $strColName (@ARGV)
Note:
See TracChangeset
for help on using the changeset viewer.