305 |
|
exit $rv; |
306 |
|
} |
307 |
|
else |
308 |
< |
{ # if not then simply warn |
309 |
< |
print "******* Warning : scram version inconsistent ********\n"; |
310 |
< |
print "This version: $thisversion; Required version: $version\n"; |
311 |
< |
print "*****************************************************\n"; |
312 |
< |
print "\n"; |
308 |
> |
{ |
309 |
> |
# if not then simply warn. Send output to STDERR: |
310 |
> |
if ( -t STDERR ) |
311 |
> |
{ |
312 |
> |
print STDERR "******* Warning : scram version inconsistent ********\n"; |
313 |
> |
print STDERR "This version: $thisversion; Required version: $version\n"; |
314 |
> |
print STDERR "*****************************************************\n"; |
315 |
> |
print STDERR "\n"; |
316 |
> |
} |
317 |
|
} |
318 |
|
} |
319 |
|
} |