Update the error message given by set_constructor()

diff --git a/bindings/perl/Champlain/t/ChamplainMapSourceDesc.t b/bindings/perl/Champlain/t/ChamplainMapSourceDesc.t
index 7040aff345cc8ee0ef974637c9f6c86f2b028d24..d2b482071358bc3b9b2cd5bb5ca16130fdd664a6 100644 (file)
--- a/bindings/perl/Champlain/t/ChamplainMapSourceDesc.t
+++ b/bindings/perl/Champlain/t/ChamplainMapSourceDesc.t
@@ -73,5 +73,5 @@ sub test_get_set {
        
        # The constructor is not yet available in the perl bindings
        throws_ok { $oam->get_constructor } qr/\Qdesc->get_constructor() isn't implemented yet/, "get_constructor() isn't implemented";
-       throws_ok { $oam->set_constructor(sub{}) } qr/\Qdesc->set_constructor(&code_ref)/, "set_constructor() isn't implemented";
+       throws_ok { $oam->set_constructor(sub{}) } qr/\Qdesc->set_constructor(\&code_ref)/, "set_constructor() isn't implemented";
 }