OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-re Date: 03-Feb-2004 20:27:14
Branch: HEAD Handle: 2004020319271400
Modified files:
openpkg-re speclint.pl
Log:
check name of package and fix dot matching
Summary:
Revision Changes Path
1.62 +9 -2 openpkg-re/speclint.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-re/speclint.pl
============================================================================
$ cvs diff -u -r1.61 -r1.62 speclint.pl
--- openpkg-re/speclint.pl 3 Feb 2004 15:34:27 -0000 1.61
+++ openpkg-re/speclint.pl 3 Feb 2004 19:27:14 -0000 1.62
@@ -299,12 +299,19 @@
sub check_license {
my ($file, $spec) = @_;
+ my $name = "[a-z][a-z0-9-]+";
+ if ($file =~ m|^.*/([a-z][a-z0-9-]+)\.spec$|) {
+ $name = $1;
+ }
+ elsif ($file =~ m|^([a-z][a-z0-9-]+)\.spec$|) {
+ $name = $1;
+ }
my $re = "";
$re .= "##\\n";
- $re .= "## [a-z][a-z0-9-]+\\.spec -- OpenPKG RPM Specification\\n";
+ $re .= "## $name\\.spec -- OpenPKG RPM Specification\\n";
$re .= "## Copyright \\(c\\) 200[0-4]-2004 The OpenPKG Project
<http://www\\.openpkg\\.org/>\\n";
$re .= "## Copyright \\(c\\) 200[0-4]-2004 Ralf S\\. Engelschall <[EMAIL
PROTECTED]>\\n";
- $re .= "## Copyright \\(c\\) 200[0-4]-2004 Cable \\& Wireless
<http://www.cw.com/>\\n";
+ $re .= "## Copyright \\(c\\) 200[0-4]-2004 Cable \\& Wireless
<http://www\\.cw\\.com/>\\n";
$re .= "##\\n";
$re .= "## Permission to use, copy, modify, and distribute this software
for\\n";
$re .= "## any purpose with or without fee is hereby granted, provided
that\\n";
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
