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

Popular posts from this blog

html - Sizing a high-res image (~8MB) to display entirely in a small div (circular, diameter 100px) -

java - IntelliJ - No such instance method -

identifier - Is it possible for an html5 document to have two ids? -