| changeset 11 | 42c603eb6301 |
| parent 9 | 1a6f6cfc46ea |
| parent 10 | 23dd30396607 |
| child 12 | a1aee1136609 |
| 9:1a6f6cfc46ea | 11:42c603eb6301 |
|---|---|
1 #! /usr/bin/perl |
1 #! /usr/bin/perl |
2 # system imager |
2 # system imager |
3 |
3 |
4 use if $ENV{DEBUG} ~~ /main|all/ => "Smart::Comments"; |
|
5 |
|
4 use strict; |
6 use strict; |
5 use warnings; |
7 use warnings; |
6 use if $ENV{DEBUG} ~~ /main|all/ => "Smart::Comments"; |
|
7 |
8 |
8 use Sys::Hostname; |
9 use Sys::Hostname; |
9 |
10 |
10 use SI::ptable; |
11 use SI::ptable; |
11 use SI::blkid; |
12 use SI::blkid; |