Replace 'perl -W' by 'use warnings;'.
The latter is preferred, and '-W'
(instead of '-w') was causing problems with
warnings in DB::mysql::GetInfo.pm.
Signed-off-by: Thomas Hochstein <thh@inter.net>
push(@INC, dirname($0));
}
use strict;
push(@INC, dirname($0));
}
use strict;
push(@INC, dirname($0));
}
use strict;
push(@INC, dirname($0));
}
use strict;
use NewsStats qw(:DEFAULT :TimePeriods ListNewsgroups ParseHierarchies ReadGroupList);
use NewsStats qw(:DEFAULT :TimePeriods ListNewsgroups ParseHierarchies ReadGroupList);
push(@INC, dirname($0));
}
use strict;
push(@INC, dirname($0));
}
use strict;
use NewsStats qw(:DEFAULT :TimePeriods :Output :SQLHelper ReadGroupList);
use NewsStats qw(:DEFAULT :TimePeriods :Output :SQLHelper ReadGroupList);
push(@INC, dirname($0).'/..');
}
use strict;
push(@INC, dirname($0).'/..');
}
use strict;
use NewsStats qw(:DEFAULT);
use NewsStats qw(:DEFAULT);