git.shadowcat.co.uk Git - dbsrgits/DBIx-Class-Schema-RestrictWithObject.git/commit

projects / dbsrgits/DBIx-Class-Schema-RestrictWithObject.git / commit

author	D. Ilmari Mannsåker <ilmari.mannsaker@net-a-porter.com>
	Fri, 14 Jun 2013 13:55:41 +0000 (14:55 +0100)
committer	D. Ilmari Mannsåker <ilmari.mannsaker@net-a-porter.com>
	Fri, 14 Jun 2013 13:55:41 +0000 (14:55 +0100)
commit	2390a52b728f0cadcc067326b1cbaa0aa428711f
tree	964c983604391b71b678e54f0bef02a00cdbfb96	tree \| snapshot
parent	4b2a6da6c1917d7ec157f9ca1861fb261e277c2f	commit \| diff

fix restricted class existence check to work on perl 5.18

In 5.18 every class name inherits from UNIVERSAL and thus
->can('can'), whether it's been defined in any way or not.

Instead, check if the class alredy inherits from the correct
restricting component.

Changes		diff \| blob \| blame \| history
lib/DBIx/Class/Schema/RestrictWithObject.pm		diff \| blob \| blame \| history

Unnamed repository; edit this file 'description' to name the repository.

RSS Atom