--- a/SI/blkid.pm Fri Jan 15 20:40:14 2010 +0100
+++ b/SI/blkid.pm Fri Jan 15 23:17:23 2010 +0100
@@ -4,21 +4,9 @@
use warnings;
use File::Find;
-sub ff($$) {
- my ($dir, $id) = @_;
- my $found;
- find(
- sub {
- return if $found;
- $found = (stat)[6] == $id ? $File::Find::name : undef;
- return;
- },
- $dir
- );
- return $found;
-}
+sub ff($$);
-sub info($\%) {
+sub save($\%) {
my ($file, $part) = @_;
foreach (`blkid -c /dev/null`) {
@@ -47,5 +35,19 @@
}
}
+sub ff($$) {
+ my ($dir, $id) = @_;
+ my $found;
+ find(
+ sub {
+ return if $found;
+ $found = (stat)[6] == $id ? $File::Find::name : undef;
+ return;
+ },
+ $dir
+ );
+ return $found;
+}
+
1;
# vim:sts=4 sw=4 aw ai si: