blob: a36418922e41823da2d7f28837f5b7b1e700ba81 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
#! /usr/bin/perl
# minimal script to create packing-lists from scratch
use strict;
use warnings;
print "\@owner ", (getpwuid $<)[0], "\n";
print "\@group ", (getgrgid $()[0], "\n";
for my $i (@ARGV) {
print $i, "\n";
}
|
