[scpubgit/System-Introspector.git] / t / bin / apt-get

#!/usr/bin/env perl
use strict;
use warnings;

if (grep { $_ eq 'upgrade' } @ARGV) {
    printf "%s %s (%s)\n", @$_ for
        ['Inst', 'foo', 'some foo info'],
        ['Somethingelse', 'bar', 'some bar info'],
        ['Remv', 'baz', 'some baz info'];
}
elsif (grep { $_ eq 'update' } @ARGV) {
    print "OK\n";
}
Commit	Line	Data
f25e8c9f	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4
	5	if (grep { $_ eq 'upgrade' } @ARGV) {
	6	printf "%s %s (%s)\n", @$_ for
	7	['Inst', 'foo', 'some foo info'],
	8	['Somethingelse', 'bar', 'some bar info'],
	9	['Remv', 'baz', 'some baz info'];
	10	}
	11	elsif (grep { $_ eq 'update' } @ARGV) {
	12	print "OK\n";
	13	}