1
0
mirror of https://github.com/samba-team/samba.git synced 2025-01-11 05:18:09 +03:00

r12378: fix perl warnings

metze
(This used to be commit 918e7b4043)
This commit is contained in:
Stefan Metzmacher 2005-12-19 23:13:12 +00:00 committed by Gerald (Jerry) Carter
parent a167713c3c
commit aca9da26c7

View File

@ -8,8 +8,10 @@ use File::Basename;
my $file = shift;
my $prefix = shift;
my $options = shift;
my $x_file, @x_files;
my $c_file, @c_files;
my $x_file;
my @x_files = ();
my $c_file;
my @c_files = ();
if (not defined ($prefix)) { $prefix = "asn1"; }
$dirname = dirname($file);