… | |
… | |
141 | { |
141 | { |
142 | if (!SvOK (profile)) |
142 | if (!SvOK (profile)) |
143 | return default_profile; |
143 | return default_profile; |
144 | |
144 | |
145 | if (!SvROK (profile)) |
145 | if (!SvROK (profile)) |
146 | croak ("invalid profile"); |
146 | croak ("Convert::BER::XS::Profile expected"); |
147 | |
147 | |
148 | profile = SvRV (profile); |
148 | profile = SvRV (profile); |
149 | |
149 | |
150 | if (SvSTASH (profile) != profile_stash) |
150 | if (SvSTASH (profile) != profile_stash) |
151 | croak ("invalid profile object"); |
151 | croak ("Convert::BER::XS::Profile expected"); |
152 | |
152 | |
153 | return (void *)profile; |
153 | return (void *)profile; |
154 | } |
154 | } |
155 | |
155 | |
156 | static int |
156 | static int |