Commits

Toby Inkster  committed b773cca

Perl 5.8 bugfixes

  • Participants
  • Parent commits 231a1f2
  • Tags 0.009

Comments (0)

Files changed (5)

 use inc::Module::Package 'RDF 0.009';
 
+requires('UNIVERSAL::DOES',0) if $] < 5.010;
+dynamic_config;

File lib/Scalar/Does.pm

 use 5.008;
 use strict;
 use utf8;
+use if $] < 5.010, 'UNIVERSAL::DOES';
 
 our %_CONSTANTS;
 BEGIN {
 	$Scalar::Does::AUTHORITY = 'cpan:TOBYINK';
-	$Scalar::Does::VERSION   = '0.008';
+	$Scalar::Does::VERSION   = '0.009';
 	
 	%_CONSTANTS = (
 		BOOLEAN    => q[bool],
 BEGIN {
 	package Scalar::Does::RoleChecker;
 	$Scalar::Does::RoleChecker::AUTHORITY = 'cpan:TOBYINK';
-	$Scalar::Does::RoleChecker::VERSION   = '0.008';
+	$Scalar::Does::RoleChecker::VERSION   = '0.009';
 	use overload
 		q[""]    => 'name',
 		q[&{}]   => 'code',
 typically blessed hashes, so C<< does($obj, 'HASH') >> is true.
 However, it is impossible to tell that from the class name.
 
-Note that the C<DOES> method is only defined in L<UNIVERSAL> in
-Perl 5.10+. You may wish to load L<UNIVERSAL::DOES> on earlier versions
-of Perl.
-
 =item C<< does($role) >>
 
 Called with a single argument, tests C<< $_ >>. Yes, this works with lexical

File lib/Scalar/Does/MooseTypes.pm

 package Scalar::Does::MooseTypes;
 
 our $AUTHORITY = 'cpan:TOBYINK';
-our $VERSION   = '0.008';
+our $VERSION   = '0.009';
 
 use Scalar::Does qw( blessed does looks_like_number -make );
 

File meta/changes.pret

 			label "Revise documentation about Role::Tiny/Moo::Role's lack of DOES; it is now implemented.";
 		];
 	].
+
+`Scalar-Does 0.009 cpan:TOBYINK`
+	issued  2012-11-05;
+	label   "Gunpowder, treason and plot";
+	changeset [
+		item "Skip test '10underscore.t' on Perl 5.008 as it doesn't support lexical $_."^^Bugfix;
+		item "Requires UNIVERSAL::DOES in Perl < 5.010."^^Packaging;
+		item "use if $] < 5.010, 'UNIVERSAL::DOES'."^^Bugfix;
+	].

File t/10underscore.t

 use Test::More;
+
+BEGIN {
+	plan skip_all => "no support for lexical \$_" unless eval q{ my $_ = 1 };
+};
+
 use Scalar::Does -constants;
 
 $_ = [];