percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 13:40:07 +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

2
lib/Transformers.pm
View File

@@ -31,6 +31,7 @@ use Time::Local qw(timegm timelocal);
use Digest::MD5 qw(md5_hex); use Digest::MD5 qw(md5_hex);
use B qw(); use B qw();
BEGIN {
require Exporter; require Exporter;
our @ISA = qw(Exporter); our @ISA = qw(Exporter);
our %EXPORT_TAGS = (); our %EXPORT_TAGS = ();
@@ -49,6 +50,7 @@ our @EXPORT_OK = qw(
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+)?/;