forked from os-autoinst/os-autoinst
-
Notifications
You must be signed in to change notification settings - Fork 0
/
cv.pm
30 lines (25 loc) · 834 Bytes
/
cv.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
# wrapper around tinycv
package cv;
use strict;
use warnings;
use constant BPP => 3;
use ExtUtils::testlib;
use File::Basename;
sub init() {
use Config;
my $vendorlib = $Config{installvendorlib};
my $libdir = dirname(__FILE__);
return if ($libdir eq "/usr/lib/os-autoinst");
my @s = stat("$libdir/ppmclibs/blib/lib/tinycv.pm");
unless (@s && -e "$libdir/ppmclibs/tinycv.pm" && $s[7] == (stat(_))[7]) {
$| = 1;
print STDERR "### Please build the tinycv bindings first:\n";
print STDERR "cd $libdir/ppmclibs ; perl Makefile.PL\n" unless -e "$libdir/ppmclibs/Makefile";
print STDERR "make -C $libdir/ppmclibs\n";
die("tinycv outdated");
}
unshift(@INC, "$libdir/ppmclibs/blib/arch");
unshift(@INC, "$libdir/ppmclibs/blib/lib");
}
1;
# vim: set sw=4 et: