Quote "$]" to work around a bug in old perls

diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm
index 3bc6ba144bcc0a42b866edbbf705bd84d17840ef..d92f17a7691c8ebaed9fa4dbb0582b686f1dfe40 100644 (file)
--- a/lib/subs/auto.pm
+++ b/lib/subs/auto.pm
@@ -87,7 +87,7 @@ my %core;
 delete @core{qw<my local>};
 
 BEGIN {
- *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ($] < 5.011002 ? 0 : 1) . '}'
+ *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ("$]" < 5.011002 ? 0 : 1) . '}'
 }
 
 my $tag = wizard data => sub { \(my $data = _REFCNT_PLACEHOLDERS ? 2 : 1) };