libconf.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#!/usr/bin/perl -w

package libconf;

use strict;
use Cwd;

sub new() {

    if ($ENV{USER} ne "root") {
        die "You must be root to run this script.\n";
    }

    system("sh", "git", "submodule", "update", "--init", "--recursive") or die "git: error: $!";

}

sub exit() {

    exit;

}

"libconf";