RPM Package Manager, CVS Repository
  http://rpm5.org/cvs/
  ____________________________________________________________________________

  Server: rpm5.org                         Name:   Olivier Thauvin
  Root:   /v/rpm/cvs                       Email:  nanardon@rpm5.org
  Module: rpm                              Date:   15-Aug-2007 23:03:54
  Branch: HEAD                             Handle: 2007081522035400

  Modified files:
    rpm/perl                RPM_Spec.xs
    rpm/perl/RPM            Spec.pm

  Log:
    - start perl RPM::Spec documentation

  Summary:
    Revision    Changes     Path
    1.2         +22 -2      rpm/perl/RPM/Spec.pm
    1.2         +2  -5      rpm/perl/RPM_Spec.xs
  ____________________________________________________________________________

  patch -p0 <<'@@ .'
  Index: rpm/perl/RPM/Spec.pm
  ============================================================================
  $ cvs diff -u -r1.1 -r1.2 Spec.pm
  --- rpm/perl/RPM/Spec.pm	7 Aug 2007 00:09:59 -0000	1.1
  +++ rpm/perl/RPM/Spec.pm	15 Aug 2007 21:03:54 -0000	1.2
  @@ -7,14 +7,34 @@
   
   =head1 NAME
   
  -RPM::Dependencies
  +RPM::Spec
   
   =head1 DESCRIPTION
   
  -=head1 SYNOPSIS
  +An object to handle operation around specs file
   
   =head1 FUNCTIONS
   
  +=new($specfile, %options)
  +
  +Create a new B<RPM::Spec> object over $specfile spec file.
  +
  +Optional options are:
  +
  +=over 4
  +
  +=item force Don't check all sources files exists
  +
  +=item passphrase The passphrase to use to sign rpm after build
  +
  +=item anyarch Don't check architecture compatibility
  +
  +=item verify
  +
  +=item root Root directory to use to build the spec file
  +
  +=back
  +
   =cut
   
   # currently everything is in the XS code
  @@ .
  patch -p0 <<'@@ .'
  Index: rpm/perl/RPM_Spec.xs
  ============================================================================
  $ cvs diff -u -r1.1 -r1.2 RPM_Spec.xs
  --- rpm/perl/RPM_Spec.xs	7 Aug 2007 00:09:58 -0000	1.1
  +++ rpm/perl/RPM_Spec.xs	15 Aug 2007 21:03:54 -0000	1.2
  @@ -59,7 +59,7 @@
               i++;
               rootdir = ST(i);
           } else {
  -            warn("Unknown value in " "RPM::Spec" "->new, ignored");
  +            warn("Unknown options in RPM::Spec->new, ignored");
               i++;
           }
       }
  @@ -74,10 +74,7 @@
   DESTROY(spec)
       Spec spec
       CODE:
  -#ifdef HDRPMMEM
  -    PRINTF_FREE("RPM::Spec", spec, -1);
  -#endif
  -    freeSpec(spec);
  +    spec = freeSpec(spec);
   
   void
   srcheader(spec)
  @@ .