X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fnamespace%2Fclean%2F_Util.pm;fp=lib%2Fnamespace%2Fclean%2F_Util.pm;h=f2579a05c35f36c9f2164c17af8a64d8537306db;hb=006e9cb47357c9a0878feafbbb35df4f01cc0d09;hp=b1c149fae64da0aa3a7d864dab48086ddff667d7;hpb=e5233d435befdf59a2a604341a3048aa42259c99;p=p5sagit%2Fnamespace-clean.git diff --git a/lib/namespace/clean/_Util.pm b/lib/namespace/clean/_Util.pm index b1c149f..f2579a0 100644 --- a/lib/namespace/clean/_Util.pm +++ b/lib/namespace/clean/_Util.pm @@ -15,8 +15,8 @@ use strict; use base 'Exporter'; our @EXPORT_OK = qw( DEBUGGER_NEEDS_CV_RENAME DEBUGGER_NEEDS_CV_PIVOT ); -use constant DEBUGGER_NEEDS_CV_RENAME => ( ( $] > 5.008_008 ) and ( $] < 5.013_006 ) ); -use constant DEBUGGER_NEEDS_CV_PIVOT => ( ( ! DEBUGGER_NEEDS_CV_RENAME ) and ( $] < 5.015_005 ) ); +use constant DEBUGGER_NEEDS_CV_RENAME => ( ( "$]" > 5.008_008 ) and ( "$]" < 5.013_006 ) ); +use constant DEBUGGER_NEEDS_CV_PIVOT => ( ( ! DEBUGGER_NEEDS_CV_RENAME ) and ( "$]" < 5.015_005 ) ); # FIXME - ideally this needs to be provided by some abstraction lib # but we don't have that yet