SI/blkid.pm
changeset 6 df6ca24871d4
parent 3 1b975c58c5bf
child 7 03ca6d811a17
--- 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: