1
0
mirror of https://github.com/samba-team/samba.git synced 2025-09-09 01:44:21 +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 $file = shift;
my $prefix = shift; my $prefix = shift;
my $options = shift; my $options = shift;
my $x_file, @x_files; my $x_file;
my $c_file, @c_files; my @x_files = ();
my $c_file;
my @c_files = ();
if (not defined ($prefix)) { $prefix = "asn1"; } if (not defined ($prefix)) { $prefix = "asn1"; }
$dirname = dirname($file); $dirname = dirname($file);