projects
/
scpubgit/System-Introspector.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
045b68908ddc1e56950bf25d39f5b5cefcbb5b46
[scpubgit/System-Introspector.git]
/
t
/
bin
/
apt-get
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
}