File PDL-2.4.3-undefined-operation.diff of Package perl-PDL

--- Graphics/IIS/iis.pd
+++ Graphics/IIS/iis.pd
@@ -429,11 +429,12 @@
 _iiscur_int()
    PPCODE:
     STRLEN n_a;
+    STRLEN n_b;
     float x,y;
     char ch;
     int   frame       = (int)SvIV( perl_get_sv("iisframe", FALSE) );
 
-    iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_a),
+    iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_b),
        (int)SvIV( perl_get_sv("fbconfig", FALSE) ),
        (int)SvIV( perl_get_sv("fb_x", FALSE) ),
        (int)SvIV( perl_get_sv("fb_y", FALSE) ) );
@@ -470,13 +471,14 @@
    char title[33];  /* 32 chars + null terminator */
    int chan;
    STRLEN n_a;
+   STRLEN n_b;
 
    /* Open pipes etc */
 
    if (frame<1 || frame>4)
        barf("$iisframe must be in range 1--4");
 
-    iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_a),
+    iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_b),
        (int)SvIV( perl_get_sv("fbconfig", FALSE) ),
        (int)SvIV( perl_get_sv("fb_x", FALSE) ),
        (int)SvIV( perl_get_sv("fb_y", FALSE) ) );
@@ -607,13 +609,14 @@
 
    int   frame = (int)SvIV( perl_get_sv("iisframe", FALSE) );
    STRLEN n_a;
+   STRLEN n_b;
 
    /* Open pipes etc */
 
    if (frame<1 || frame>4)
        barf("$iisframe must be in range 1--4");
 
-   iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_a),
+   iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_b),
         (int)SvIV( perl_get_sv("fbconfig", FALSE) ),
         (int)SvIV( perl_get_sv("fb_x", FALSE) ),
         (int)SvIV( perl_get_sv("fb_y", FALSE) ) );