X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=Opusfile.xs;fp=Opusfile.xs;h=243795f60cf7d4904ff5bdb46bfb5e3bb7223d84;hb=9fc88b294214d5944b6bb5076528f7dd427d6e0c;hp=40037e1bb73ec46b5875b767941047041d0456cc;hpb=87f547cd56293405c21cfca643d4b9eaac0beb5d;p=audio-opusfile.git

diff --git a/Opusfile.xs b/Opusfile.xs
index 40037e1..243795f 100644
--- a/Opusfile.xs
+++ b/Opusfile.xs
@@ -81,11 +81,17 @@ long
 op_raw_total(of, li = -1)
 	Audio::Opusfile of;
 	int li;
+POSTCALL:
+	if(RETVAL < 0)
+		croak("op_current_link returned error %ld\n", RETVAL);
 
 long
 op_pcm_total(of, li = -1)
 	Audio::Opusfile of;
 	int li;
+POSTCALL:
+	if(RETVAL < 0)
+		croak("op_current_link returned error %ld\n", RETVAL);
 
 Audio::Opusfile::Head
 op_head(of, li = -1)
@@ -97,12 +103,20 @@ op_tags(of, li = -1)
 	Audio::Opusfile of;
 	int li;
 
-# op_current_link not exported until we export the decoding API
+int
+op_current_link(of)
+	Audio::Opusfile of;
+POSTCALL:
+	if(RETVAL < 0)
+		croak("op_current_link returned error %ld\n", RETVAL);
 
 int
 op_bitrate(of, li = -1)
 	Audio::Opusfile of;
 	int li;
+POSTCALL:
+	if(RETVAL < 0)
+		croak("op_bitrate returned error %ld\n", RETVAL);
 
 long
 op_bitrate_instant(of)