File: driver

package info (click to toggle)
debram 1.0.3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 2,796 kB
  • ctags: 437
  • sloc: perl: 2,953; ansic: 1,901; makefile: 169; sh: 14
file content (22 lines) | stat: -rwxr-xr-x 612 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#! /usr/bin/perl
# Here is a very simple sample driver for the DebParse modules.  The
# author's home directory is /home/t/.  If you want to try this sample,
# you'll have to adjust the directory names and filenames herein
# accordingly.
use warnings;
use strict;
use integer;
BEGIN { unshift @INC, '/home/t/Debparse'; }
use AllPkg;

my $src_filename = '/home/t/archive/Sources.orig';
my $bin_filename = '/home/t/archive/Packages.orig';

# $AllPkg::verbosity = 60;

my $all = AllPkg->new( $src_filename, $bin_filename );
$all->select_by_pri();
my @out = $all->analyze_and_report();
print @out;
@out and exit 1;