Changeset 768

Timestamp:

03/09/07 23:10:10 (2 years ago)

Author:

hachi

Message:

Document hash usage and pick a couple better variable names.

Files:

• trunk/server/mogstored (modified) (2 diffs)

trunk/server/mogstored

@@ -436 +436 @@
-
-    if (lc($^O) eq 'linux') {
-
-
+
+
+
-
-        if (open my $partitions, '<', '/proc/partitions') {
-            <$partitions>; <$partitions>; # First two lines are for humans
-            while (my $line = <$partitions>) {
-my ($major, $minor, $devname) = $line =~
-    m/^ \s* (\d+) \s+ (\d+) \s+ \d+ \s+ (\S+) \s* $/x
+next unless $line =~ m/^ \s* (\d+) \s+ (\d+) \s+ \d+ \s+ (\S+) \s* $/x;
+my ($major, $minor, $devname) = ($1, $2, $3)
-                my $devno = ($major << 8) + $minor;
-                $name_to_number{$devname} = $devno;
@@ -452 +453 @@
-        }
-
+        # Iterate over the hash { 1 => 768 } meaning (mogile device dev1 points to os device 768)
-        foreach my $mogdevid (keys %$map) {
+            # Look up the original device number
-            my $original = $map->{$mogdevid};
+
+            # See if there is a mapping to turn it into a device name (eg. hda1)
-            my $devname = $number_to_name{$original} or next;
-
-
-
+
+
+
+
+
+
-            }
-        }