| changeset 11 | 42c603eb6301 |
| parent 10 | 23dd30396607 |
| child 12 | a1aee1136609 |
| 9:1a6f6cfc46ea | 11:42c603eb6301 |
|---|---|
1 package SI::blkid; |
1 package SI::blkid; |
2 |
|
3 use if $ENV{DEBUG} ~~ /blkid|all/ => "Smart::Comments"; |
|
2 |
4 |
3 use strict; |
5 use strict; |
4 use warnings; |
6 use warnings; |
5 use File::Find; |
7 use File::Find; |
6 |
8 |
7 |
|
8 use if $ENV{DEBUG} ~~ /blkid|all/ => "Smart::Comments"; |
|
9 |
9 |
10 use SI::tools; |
10 use SI::tools; |
11 |
11 |
12 sub find_by_devid($$) { |
12 sub find_by_devid($$) { |
13 my ($dir, $id) = @_; |
13 my ($dir, $id) = @_; |