percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-10 21:19:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

v-c: Updated to identify and report every instance, and to skip instances already version-checked that day

Browse Source
This commit is contained in:
Brian Fraser
2012-08-24 19:09:59 -03:00
parent 36a0dff6ee
commit 9f79d4b7ba
6 changed files with 158 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/Percona/Toolkit.pm
View File

@@ -20,6 +20,15 @@
{
package Percona::Toolkit;
our $VERSION = '2.1.3';
sub slurp_file {
my ($file) = @_;
open my $fh, "<", $file or die "Cannot open $file: $!";
my $contents = do { local $/ = undef; <$fh> };
close $fh;
return $contents;
}
1;
}
# ###########################################################################