| branch | 2010-01-17 |
| changeset 10 | 23dd30396607 |
| parent 7 | 03ca6d811a17 |
| child 12 | a1aee1136609 |
| 7:03ca6d811a17 | 10:23dd30396607 |
|---|---|
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) = @_; |