Commits

Anonymous committed 24d0b36

#i10000# - workaround perl malloc problem on mac

Comments (0)

Files changed (1)

solenv/bin/modules/par2script/files.pm

 {
 	my ($localfile) = @_;
 
+	my @localfile = ();
+
 	open( IN, "<$localfile" ) || par2script::exiter::exit_program("ERROR: Cannot open file: $localfile", "read_file");
-	my @localfile = <IN>;
+	while ( <IN> ) { push(@localfile, $_); }
 	close( IN );
 
 	return \@localfile;