File: rawdev.pl

package info (click to toggle)
tct 1.07-9
  • links: PTS
  • area: main
  • in suites: woody
  • size: 1,828 kB
  • ctags: 1,128
  • sloc: perl: 9,604; ansic: 4,861; makefile: 516; sh: 77
file content (23 lines) | stat: -rw-r--r-- 411 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#
# Some systems return EBUSY when grave-robbing the block device.
# Try to use the raw device instead. Provided that one exists.
#

sub rawdev
{
    my($dev) = @_;
    my($rdev);

    ($rdev = $dev) =~ s;(/dev/);$1r;;
    print "dev $dev rdev $rdev\n" unless $running_under_grave_robber;

    return (-e $rdev ? $rdev : $dev);
}

if (!$running_under_grave_robber) {
    for (@ARGV) {
	&rawdev($_);
    }
}

1;