valgrind.pm (1338B)
1 #*************************************************************************** 2 # _ _ ____ _ 3 # Project ___| | | | _ \| | 4 # / __| | | | |_) | | 5 # | (__| |_| | _ <| |___ 6 # \___|\___/|_| \_\_____| 7 # 8 # Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al. 9 # 10 # This software is licensed as described in the file COPYING, which 11 # you should have received as part of this distribution. The terms 12 # are also available at https://curl.se/docs/copyright.html. 13 # 14 # You may opt to use, copy, modify, merge, publish, distribute and/or sell 15 # copies of the Software, and permit persons to whom the Software is 16 # furnished to do so, under the terms of the COPYING file. 17 # 18 # This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY 19 # KIND, either express or implied. 20 # 21 # SPDX-License-Identifier: curl 22 # 23 ########################################################################### 24 25 package valgrind; 26 27 use strict; 28 use warnings; 29 30 BEGIN { 31 use base qw(Exporter); 32 33 our @EXPORT = qw( 34 valgrindparse 35 ); 36 } 37 38 39 use File::Basename; 40 41 sub valgrindparse { 42 my ($file) = @_; 43 my @o; 44 open(my $val, "<", "$file") || 45 return; 46 @o = <$val>; 47 close($val); 48 return @o; 49 } 50 51 1;