Segmentation fault caused in perl script from regex -
i'm executing perl script runs tests in root directory , subdirectories of script. reason though i'm getting segmentation fault when test in sub directory. know has regex code it's stipping out before last / , leaving file.
use strict; use warnings; @files = glob("*.hml"); push(@files, glob("*/*.hml")); use file::compare; $hml = $hml . '/thing.exe '; $int = 0; @failedtests = qw(); print "running $hmlfile ... :: "; if ($hmlfile =~ s:.*/([^/]+):$1:){ } $file = substr($newhmlfile, 0, index($newhmlfile , '.')); $log = $file . '.log'; $cmd = $hml . $newhmlfile; $cmd = $cmd . ' > ' . $log . ' 2>&1'; system ($cmd); $reflog = 'reflogs/' . $file . '.log'; if (compare($log, $reflog) == 0) { print "$hmlfile passed\n"; unlink $log; } else { $int++; push(@failedtests, "$hmlfile"); print "$hmlfile *********** failed ***********\n"; }
a segmentation fault in perl means found bug in version and/or build of perl.
- ensure have last version available operating system.
- unless compiled perl (unlikely), report bug maintainers/vendor of operating system.
Comments
Post a Comment