Author: Damyan Invanov <dmn@debian.org>
Author: gregor herrmann <gregoa@debian.org>
Description: making the module use v4l1_open function from libv4l
Bugs-Debian: #569091 -- Uses obsolete V4L1 API

--- a/V4l/V4l.pm
+++ b/V4l/V4l.pm
@@ -7,6 +7,7 @@
 require Exporter;
 require DynaLoader;
 
+use IO::Handle;
 use Fcntl;
 
 $VERSION = '0.902';
@@ -92,9 +93,8 @@
    my $device = shift || "/dev/video0";
    my $self = bless { device => $device }, $class;
 
-   $self->{handle} = local *{$device};
-   sysopen $self->{handle},$device,O_RDWR or return;
-   $self->{fd} = fileno ($self->{handle});
+   $self->{fd} = v4l_open($device,O_RDWR) or return;
+   $self->{handle} = IO::Handle->new_from_fd( $self->{fd}, 'w' );
    $self->{capability} = _capabilities_new ($self->{fd});
    $self->{picture} = _picture_new ($self->{fd});
 
@@ -176,9 +176,8 @@
    my $device = shift || "/dev/vbi0";
    my $self = bless { device => $device }, $class;
 
-   $self->{handle} = local *{$device};
-   sysopen $self->{handle},$device,O_RDWR or return;
-   $self->{fd} = fileno ($self->{handle});
+   $self->{fd} = v4l_open($device,O_RDWR) or return;
+   $self->{handle} = IO::Handle->new_from_fd( $self->{fd}, 'w' );
 
    $self
 }
--- a/V4l/Makefile.PL
+++ b/V4l/Makefile.PL
@@ -8,5 +8,5 @@
 WriteMakefile(
     'NAME'	=> 'Video::Capture::V4l',
     'VERSION_FROM' => 'V4l.pm',
-    LIBS	=> '-lpthread',
+    LIBS	=> '-lpthread -lv4l1',
 );
--- a/V4l/V4l.xs
+++ b/V4l/V4l.xs
@@ -9,7 +9,7 @@
 
 #include <string.h>
 #include <pthread.h>
-#include <linux/videodev.h>
+#include <libv4l1.h>
 
 #define NEED_newCONSTSUB
 #include "../gppport.h"
@@ -89,7 +89,7 @@
 private_free (pTHX_ SV *obj, MAGIC *mg)
 {
   struct private *p = (struct private *)mg->mg_ptr;
-  munmap (p->mmap_base, p->vm.size);
+  v4l1_munmap (p->mmap_base, p->vm.size);
   return 0;
 }
 
@@ -105,9 +105,9 @@
     {
       struct private p;
       p.fd = SvIV (*hv_fetch (hv, "fd", 2, 0));
-      if (ioctl (p.fd, VIDIOCGMBUF, &p.vm) == 0)
+      if (v4l1_ioctl (p.fd, VIDIOCGMBUF, &p.vm) == 0)
         {
-          p.mmap_base = (unsigned char *)mmap (0, p.vm.size, PROT_READ|PROT_WRITE, MAP_SHARED, p.fd, 0);
+          p.mmap_base = (unsigned char *)v4l1_mmap (0, p.vm.size, PROT_READ|PROT_WRITE, MAP_SHARED, p.fd, 0);
           if (p.mmap_base)
             {
               sv_magic ((SV*)hv, 0, '~', (char*)&p, sizeof p);
@@ -164,7 +164,7 @@
           pthread_mutex_unlock (&vbi_lock);
 
           next->next = 0;
-          next->size = read (vbi_fd, next->data, VBI_BPF);
+          next->size = v4l1_read (vbi_fd, next->data, VBI_BPF);
 
           pthread_mutex_lock (&vbi_lock);
 
@@ -229,7 +229,7 @@
 
             RETVAL = newSVpvn ("", 0);
             SvGROW (RETVAL, VBI_BPF);
-            len = read (fd, SvPV_nolen (RETVAL), VBI_BPF);
+            len = v4l1_read (fd, SvPV_nolen (RETVAL), VBI_BPF);
             SvCUR_set (RETVAL, len);
           }
 
@@ -314,6 +314,15 @@
 	OUTPUT:
         RETVAL
 
+int
+v4l_open (file,oflag)
+        char    *file
+        int     oflag
+        CODE:
+            RETVAL = v4l1_open (file, oflag);
+        OUTPUT:
+        RETVAL
+
 MODULE = Video::Capture::V4l		PACKAGE = Video::Capture::V4l		
 
 SV *
@@ -333,7 +342,7 @@
             vm.height = height;
             vm.width  = width;
             vm.format = format;
-            if (ioctl (p->fd, VIDIOCMCAPTURE, &vm) == 0)
+            if (v4l1_ioctl (p->fd, VIDIOCMCAPTURE, &vm) == 0)
               {
                 SV *fr = newSV (0);
                 SvUPGRADE (fr, SVt_PV);
@@ -361,7 +370,7 @@
 {
         struct private *p;
         if ((p = find_private (sv))
-            && ioctl (p->fd, VIDIOCSYNC, &frame) == 0)
+            && v4l1_ioctl (p->fd, VIDIOCSYNC, &frame) == 0)
           XSRETURN_YES;
         else
           XSRETURN_EMPTY;
@@ -375,11 +384,11 @@
         if (items > 1)
           {
             fr = ((fr<<4)+499)/1000;
-            ioctl (fd, VIDIOCSFREQ, &fr);
+            v4l1_ioctl (fd, VIDIOCSFREQ, &fr);
           }
         if (GIMME_V != G_VOID)
           {
-            if (ioctl (fd, VIDIOCGFREQ, &fr) == 0)
+            if (v4l1_ioctl (fd, VIDIOCGFREQ, &fr) == 0)
               RETVAL = (fr*1000+7)>>4;
             else
               XSRETURN_EMPTY;
@@ -430,13 +439,22 @@
         OUTPUT:
         RETVAL
 
+int
+v4l_open (file,oflag)
+        char    *file
+        int     oflag
+        CODE:
+            RETVAL = v4l1_open (file, oflag);
+        OUTPUT:
+        RETVAL
+
 MODULE = Video::Capture::V4l		PACKAGE = Video::Capture::V4l::Capability
 
 void
 get(sv)
 	SV *	sv
         CODE:
-        XSRETURN_bool (ioctl (SvIV (SvRV (sv)), VIDIOCGCAP, old_struct (sv, "Video::Capture::V4l::Capability")) == 0);
+        XSRETURN_bool (v4l1_ioctl (SvIV (SvRV (sv)), VIDIOCGCAP, old_struct (sv, "Video::Capture::V4l::Capability")) == 0);
 
 MODULE = Video::Capture::V4l		PACKAGE = Video::Capture::V4l::Channel
 
@@ -444,13 +462,13 @@
 get(sv)
 	SV *	sv
         CODE:
-        XSRETURN_bool (ioctl (SvIV (SvRV (sv)), VIDIOCGCHAN, old_struct (sv, "Video::Capture::V4l::Channel")) == 0);
+        XSRETURN_bool (v4l1_ioctl (SvIV (SvRV (sv)), VIDIOCGCHAN, old_struct (sv, "Video::Capture::V4l::Channel")) == 0);
 
 void
 set(sv)
 	SV *	sv
         CODE:
-        XSRETURN_bool (ioctl (SvIV (SvRV (sv)), VIDIOCSCHAN, old_struct (sv, "Video::Capture::V4l::Channel")) == 0);
+        XSRETURN_bool (v4l1_ioctl (SvIV (SvRV (sv)), VIDIOCSCHAN, old_struct (sv, "Video::Capture::V4l::Channel")) == 0);
 
 MODULE = Video::Capture::V4l		PACKAGE = Video::Capture::V4l::Tuner
 
@@ -458,13 +476,13 @@
 get(sv)
 	SV *	sv
         CODE:
-        XSRETURN_bool (ioctl (SvIV (SvRV (sv)), VIDIOCGTUNER, old_struct (sv, "Video::Capture::V4l::Tuner")) == 0);
+        XSRETURN_bool (v4l1_ioctl (SvIV (SvRV (sv)), VIDIOCGTUNER, old_struct (sv, "Video::Capture::V4l::Tuner")) == 0);
 
 void
 set(sv)
 	SV *	sv
         CODE:
-        XSRETURN_bool (ioctl (SvIV (SvRV (sv)), VIDIOCSTUNER, old_struct (sv, "Video::Capture::V4l::Tuner")) == 0);
+        XSRETURN_bool (v4l1_ioctl (SvIV (SvRV (sv)), VIDIOCSTUNER, old_struct (sv, "Video::Capture::V4l::Tuner")) == 0);
 
 MODULE = Video::Capture::V4l		PACKAGE = Video::Capture::V4l::Audio
 
@@ -472,13 +490,13 @@
 get(sv)
 	SV *	sv
         CODE:
-        XSRETURN_bool (ioctl (SvIV (SvRV (sv)), VIDIOCGAUDIO, old_struct (sv, "Video::Capture::V4l::Audio")) == 0);
+        XSRETURN_bool (v4l1_ioctl (SvIV (SvRV (sv)), VIDIOCGAUDIO, old_struct (sv, "Video::Capture::V4l::Audio")) == 0);
 
 void
 set(sv)
 	SV *	sv
         CODE:
-        XSRETURN_bool (ioctl (SvIV (SvRV (sv)), VIDIOCSAUDIO, old_struct (sv, "Video::Capture::V4l::Audio")) == 0);
+        XSRETURN_bool (v4l1_ioctl (SvIV (SvRV (sv)), VIDIOCSAUDIO, old_struct (sv, "Video::Capture::V4l::Audio")) == 0);
 
 MODULE = Video::Capture::V4l		PACKAGE = Video::Capture::V4l::Picture
 
@@ -486,13 +504,13 @@
 get(sv)
 	SV *	sv
         CODE:
-        XSRETURN_bool (ioctl (SvIV (SvRV (sv)), VIDIOCGPICT, old_struct (sv, "Video::Capture::V4l::Picture")) == 0);
+        XSRETURN_bool (v4l1_ioctl (SvIV (SvRV (sv)), VIDIOCGPICT, old_struct (sv, "Video::Capture::V4l::Picture")) == 0);
 
 void
 set(sv)
 	SV *	sv
         CODE:
-        XSRETURN_bool (ioctl (SvIV (SvRV (sv)), VIDIOCSPICT, old_struct (sv, "Video::Capture::V4l::Picture")) == 0);
+        XSRETURN_bool (v4l1_ioctl (SvIV (SvRV (sv)), VIDIOCSPICT, old_struct (sv, "Video::Capture::V4l::Picture")) == 0);
 
 # accessors/mutators
 INCLUDE: ./genacc |
@@ -510,9 +528,6 @@
 	newCONSTSUB(stash,"AUDIO_MUTE",	newSViv(VIDEO_AUDIO_MUTE));
 	newCONSTSUB(stash,"AUDIO_TREBLE",	newSViv(VIDEO_AUDIO_TREBLE));
 	newCONSTSUB(stash,"AUDIO_VOLUME",	newSViv(VIDEO_AUDIO_VOLUME));
-	newCONSTSUB(stash,"CAPTURE_EVEN",	newSViv(VIDEO_CAPTURE_EVEN));
-	newCONSTSUB(stash,"CAPTURE_ODD",	newSViv(VIDEO_CAPTURE_ODD));
-	newCONSTSUB(stash,"MAX_FRAME",	newSViv(VIDEO_MAX_FRAME));
 	newCONSTSUB(stash,"MODE_AUTO",	newSViv(VIDEO_MODE_AUTO));
 	newCONSTSUB(stash,"MODE_NTSC",	newSViv(VIDEO_MODE_NTSC));
 	newCONSTSUB(stash,"MODE_PAL",	newSViv(VIDEO_MODE_PAL));