#!/usr/bin/perl
# A simple script for making releases of the pciutils
-# (c) 2003--2004 Martin Mares <mj@ucw.cz>
+# (c) 2003--2006 Martin Mares <mj@ucw.cz>
use strict;
use warnings;
push @{$r->{"uploads"}}, {
"url" => "ftp://metalab.unc.edu/incoming/linux/",
"filter" => '(\.tar\.gz|\.lsm)$'
- } if $r->{"ALPHADIR"} ne "";
+ } if $r->{"ALPHADIR"} eq "";
$r->ParseOptions;
$r->InitDist("maint/dist");
my $reldir = $r->GenPackage;