Export op_current_link

[audio-opusfile.git] / Opusfile.xs

diff --git a/Opusfile.xs b/Opusfile.xs
index 40037e1bb73ec46b5875b767941047041d0456cc..243795f60cf7d4904ff5bdb46bfb5e3bb7223d84 100644 (file)
--- 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)