mention that it only works on Perl 5.14+

mojolicious · Mar 30, 2015 · b319b70 · b319b70
1 parent a8dbeab
commit b319b70
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Mojo/Pg/Database.pm b/lib/Mojo/Pg/Database.pm
@@ -14,7 +14,7 @@ has [qw(dbh pg)];
 sub DESTROY {
   my $self = shift;
 
-  # Global destruction
+  # Supported on Perl 5.14+
   return if defined(${^GLOBAL_PHASE}) && ${^GLOBAL_PHASE} eq 'DESTRUCT';
 
   my $waiting = $self->{waiting};