diff --git a/Build.PL b/Build.PL
index 105c898..25f2009 100644
--- a/Build.PL
+++ b/Build.PL
@@ -29,6 +29,7 @@ my $build = Module::Build->new(
 		'Config::Any'      => 0,
 		'JSON'             => 0,
  		'YAML'             => 0,
+		'perl'             => '5.8.0',
 	},
 	suggests => {
 		'DateTime'         => 0,
diff --git a/lib/App/AltSQL/Model/MySQL.pm b/lib/App/AltSQL/Model/MySQL.pm
index 4e00497..2b8b3d0 100644
--- a/lib/App/AltSQL/Model/MySQL.pm
+++ b/lib/App/AltSQL/Model/MySQL.pm
@@ -363,14 +363,10 @@ my %prompt_substitutions = (
 	P    => '%t{%p}',
 );
 
-=cut
-
-Take a .my.cnf prompt format and convert it into Term escape options
-
-Reference:
-http://www.thegeekstuff.com/2010/02/mysql_ps1-6-examples-to-make-your-mysql-prompt-like-angelina-jolie/
-
-=cut
+# Take a .my.cnf prompt format and convert it into Term escape options
+#
+# Reference:
+# http://www.thegeekstuff.com/2010/02/mysql_ps1-6-examples-to-make-your-mysql-prompt-like-angelina-jolie/
 
 sub parse_prompt {
 	my $self = shift;