say -> print for perl 5.8 compatibility

This commit is contained in:
Dima Kogan 2010-10-23 01:15:42 -07:00
parent f5ee508d25
commit 1e729e3b06

View File

@ -510,8 +510,8 @@ sub newCurve
if(scalar @curves >= $options{maxcurves})
{
say STDERR "Tried to exceed the --maxcurves setting.";
say STDERR "Invoke with a higher --maxcurves limit if you really want to do this.";
print STDERR "Tried to exceed the --maxcurves setting.\n";
print STDERR "Invoke with a higher --maxcurves limit if you really want to do this.\n";
return;
}