percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-13 14:39:28 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make Transformers work if called with use

Browse Source
This commit is contained in:
Brian Fraser fraserb@gmail.com
2013-01-16 07:56:04 -03:00
parent d1d1b04f6e
commit 1e8e8a8398
1 changed files with 20 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/Transformers.pm
View File

@@ -31,11 +31,12 @@ use Time::Local qw(timegm timelocal);
use Digest::MD5 qw(md5_hex); use Digest::MD5 qw(md5_hex);
use B qw(); use B qw();
require Exporter; BEGIN {
our @ISA = qw(Exporter); require Exporter;
our %EXPORT_TAGS = (); our @ISA = qw(Exporter);
our @EXPORT = (); our %EXPORT_TAGS = ();
our @EXPORT_OK = qw( our @EXPORT = ();
our @EXPORT_OK = qw(
micro_t micro_t
percentage_of percentage_of
secs_to_time secs_to_time
@@ -48,7 +49,8 @@ our @EXPORT_OK = qw(
make_checksum make_checksum
crc32 crc32
encode_json encode_json
); );
}
our $mysql_ts = qr/(\d\d)(\d\d)(\d\d) +(\d+):(\d+):(\d+)(\.\d+)?/; our $mysql_ts = qr/(\d\d)(\d\d)(\d\d) +(\d+):(\d+):(\d+)(\.\d+)?/;
our $proper_ts = qr/(\d\d\d\d)-(\d\d)-(\d\d)[T ](\d\d):(\d\d):(\d\d)(\.\d+)?/; our $proper_ts = qr/(\d\d\d\d)-(\d\d)-(\d\d)[T ](\d\d):(\d\d):(\d\d)(\.\d+)?/;