diff options
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/mysql_import_combined_log.pl | 6 | 
1 files changed, 6 insertions, 0 deletions
| diff --git a/contrib/mysql_import_combined_log.pl b/contrib/mysql_import_combined_log.pl index 1c801f2..cc5b8de 100644 --- a/contrib/mysql_import_combined_log.pl +++ b/contrib/mysql_import_combined_log.pl | |||
| @@ -1,4 +1,8 @@ | |||
| 1 | #!/usr/bin/perl -w | 1 | #!/usr/bin/perl -w | 
| 2 | |||
| 3 | # Written by Aaron Jenson. | ||
| 4 | # Original source: http://www.visualprose.com/software.php | ||
| 5 | # Updated to work under Perl 5.6.1 by Edward Rudd | ||
| 2 | use strict; | 6 | use strict; | 
| 3 | use Getopt::Long qw(:config bundling); | 7 | use Getopt::Long qw(:config bundling); | 
| 4 | use DBI; | 8 | use DBI; | 
| @@ -216,6 +220,8 @@ EOF | |||
| 216 | sub VERSION_MESSAGE | 220 | sub VERSION_MESSAGE | 
| 217 | { | 221 | { | 
| 218 | print "mysql_import_combined_log.pl version 1.1\n"; | 222 | print "mysql_import_combined_log.pl version 1.1\n"; | 
| 223 | print "Version 1.0 Written by Aaron Jenson.\n"; | ||
| 224 | print "Update to work with perl 5.6.1 by Edward Rudd\n"; | ||
| 219 | } | 225 | } | 
| 220 | 226 | ||
| 221 | 1; | 227 | 1; | 
