···

       
10
       
 
       


     

       
11
       
 
       
my $dbPath = "@dbPath@";

     

       
12
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
13
       
 
       
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbPath", "", "")

     

       
14
       
 
       
    or die "cannot open database `$dbPath'";

     

       
15
       
 
       
$dbh->{RaiseError} = 0;

     

···

       
10
       
 
       


     

       
11
       
 
       
my $dbPath = "@dbPath@";

     

       
12
       
 
       


     

       
13
       
+
       
if (! -e $dbPath) {

     

       
14
       
+
       
    print STDERR "$program: command not found\n";

     

       
15
       
+
       
    print STDERR "\n";

     

       
16
       
+
       
    print STDERR "command-not-found: Missing package database\n";

     

       
17
       
+
       
    print STDERR "This likely means the database hasn't been generated yet.\n";

     

       
18
       
+
       
    print STDERR "This tool requires nix-channels to generate the database.\n";

     

       
19
       
+
       
    print STDERR "\n";

     

       
20
       
+
       
    print STDERR "If you are using nix-channels you can run:\n";

     

       
21
       
+
       
    print STDERR "    sudo nix-channels --update\n";

     

       
22
       
+
       
    print STDERR "\n";

     

       
23
       
+
       
    print STDERR "If you are using flakes, see nix-index and nix-index-database.\n";

     

       
24
       
+
       
    print STDERR "\n";

     

       
25
       
+
       
    print STDERR "If you would like to disable this message you can set:\n";

     

       
26
       
+
       
    print STDERR "    programs.command-not-found.enable = false;\n";

     

       
27
       
+
       
    exit 127;

     

       
28
       
+
       
}

     

       
29
       
+
       


     

       
30
       
 
       
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbPath", "", "")

     

       
31
       
 
       
    or die "cannot open database `$dbPath'";

     

       
32
       
 
       
$dbh->{RaiseError} = 0;