[perl-PBS/el6/master] * Tue Jun 22 2010 Petr Pisar <ppisar at redhat.com> - 0.33-9 - Rebuild against libtorque-2.4.8

stevetraylen stevetraylen at fedoraproject.org
Fri Jul 30 13:52:59 UTC 2010


commit eea5f13649de57dbf34f24353ba12255ceadcc7e
Author: steve <steve at beta6.work>
Date:   Fri Jul 30 17:52:59 2010 +0200

    * Tue Jun 22 2010 Petr Pisar <ppisar at redhat.com> - 0.33-9
    - Rebuild against libtorque-2.4.8

 perl-PBS-0.33-obsolete.patch |  213 ++++++++++++++++++++++++++++++++++++++++++
 perl-PBS.spec                |   16 +++-
 2 files changed, 228 insertions(+), 1 deletions(-)
---
diff --git a/perl-PBS-0.33-obsolete.patch b/perl-PBS-0.33-obsolete.patch
new file mode 100644
index 0000000..43daaae
--- /dev/null
+++ b/perl-PBS-0.33-obsolete.patch
@@ -0,0 +1,213 @@
+diff -up perl-PBS-0.33/PBS_wrap.c.obsolete perl-PBS-0.33/PBS_wrap.c
+--- perl-PBS-0.33/PBS_wrap.c.obsolete	2010-06-02 11:06:38.452350265 -0400
++++ perl-PBS-0.33/PBS_wrap.c	2010-06-02 11:07:57.940350269 -0400
+@@ -6173,196 +6173,6 @@ XS(_wrap_usepool) {
+ }
+ 
+ 
+-XS(_wrap_pbs_err_to_txt_err_no_set) {
+-    char _swigmsg[SWIG_MAX_ERRMSG] = "";
+-    const char *_swigerr = _swigmsg;
+-    {
+-        struct pbs_err_to_txt *arg1 = (struct pbs_err_to_txt *) 0 ;
+-        int arg2 ;
+-        int argvi = 0;
+-        dXSARGS;
+-        
+-        if ((items < 2) || (items > 2)) {
+-            SWIG_croak("Usage: pbs_err_to_txt_err_no_set(self,err_no);");
+-        }
+-        {
+-            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_pbs_err_to_txt,0) < 0) {
+-                SWIG_croak("Type error in argument 1 of pbs_err_to_txt_err_no_set. Expected _p_pbs_err_to_txt");
+-            }
+-        }
+-        arg2 = (int) SvIV(ST(1));
+-        if (arg1) (arg1)->err_no = arg2;
+-        
+-        
+-        XSRETURN(argvi);
+-        fail:
+-        (void) _swigerr;
+-    }
+-    croak(_swigerr);
+-}
+-
+-
+-XS(_wrap_pbs_err_to_txt_err_no_get) {
+-    char _swigmsg[SWIG_MAX_ERRMSG] = "";
+-    const char *_swigerr = _swigmsg;
+-    {
+-        struct pbs_err_to_txt *arg1 = (struct pbs_err_to_txt *) 0 ;
+-        int result;
+-        int argvi = 0;
+-        dXSARGS;
+-        
+-        if ((items < 1) || (items > 1)) {
+-            SWIG_croak("Usage: pbs_err_to_txt_err_no_get(self);");
+-        }
+-        {
+-            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_pbs_err_to_txt,0) < 0) {
+-                SWIG_croak("Type error in argument 1 of pbs_err_to_txt_err_no_get. Expected _p_pbs_err_to_txt");
+-            }
+-        }
+-        result = (int) ((arg1)->err_no);
+-        
+-        ST(argvi) = sv_newmortal();
+-        sv_setiv(ST(argvi++), (IV) result);
+-        XSRETURN(argvi);
+-        fail:
+-        (void) _swigerr;
+-    }
+-    croak(_swigerr);
+-}
+-
+-
+-XS(_wrap_pbs_err_to_txt_err_txt_set) {
+-    char _swigmsg[SWIG_MAX_ERRMSG] = "";
+-    const char *_swigerr = _swigmsg;
+-    {
+-        struct pbs_err_to_txt *arg1 = (struct pbs_err_to_txt *) 0 ;
+-        char **arg2 = (char **) 0 ;
+-        int argvi = 0;
+-        dXSARGS;
+-        
+-        if ((items < 2) || (items > 2)) {
+-            SWIG_croak("Usage: pbs_err_to_txt_err_txt_set(self,err_txt);");
+-        }
+-        {
+-            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_pbs_err_to_txt,0) < 0) {
+-                SWIG_croak("Type error in argument 1 of pbs_err_to_txt_err_txt_set. Expected _p_pbs_err_to_txt");
+-            }
+-        }
+-        {
+-            AV *tempav;
+-            I32 len;
+-            int i;
+-            SV  **tv;
+-            
+-            if (!SvROK(ST(1)))
+-            croak("ST(1) is not an array.");
+-            if (SvTYPE(SvRV(ST(1))) != SVt_PVAV)
+-            croak("ST(1) is not an array.");
+-            tempav = (AV*)SvRV(ST(1));
+-            len = av_len(tempav);
+-            arg2 = (char **) malloc((len+2)*sizeof(char *));
+-            for (i = 0; i <= len; i++) {
+-                tv = av_fetch(tempav, i, 0);	
+-                arg2[i] = (char *) SvPV(*tv,PL_na);
+-            }
+-            arg2[i] = 0;
+-        }
+-        if (arg1) (arg1)->err_txt = arg2;
+-        
+-        
+-        {
+-            free(arg2);
+-        }
+-        XSRETURN(argvi);
+-        fail:
+-        {
+-            free(arg2);
+-        }
+-        (void) _swigerr;
+-    }
+-    croak(_swigerr);
+-}
+-
+-
+-XS(_wrap_pbs_err_to_txt_err_txt_get) {
+-    char _swigmsg[SWIG_MAX_ERRMSG] = "";
+-    const char *_swigerr = _swigmsg;
+-    {
+-        struct pbs_err_to_txt *arg1 = (struct pbs_err_to_txt *) 0 ;
+-        char **result;
+-        int argvi = 0;
+-        dXSARGS;
+-        
+-        if ((items < 1) || (items > 1)) {
+-            SWIG_croak("Usage: pbs_err_to_txt_err_txt_get(self);");
+-        }
+-        {
+-            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_pbs_err_to_txt,0) < 0) {
+-                SWIG_croak("Type error in argument 1 of pbs_err_to_txt_err_txt_get. Expected _p_pbs_err_to_txt");
+-            }
+-        }
+-        result = (char **) ((arg1)->err_txt);
+-        
+-        ST(argvi) = sv_newmortal();
+-        SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_p_char,0);
+-        XSRETURN(argvi);
+-        fail:
+-        (void) _swigerr;
+-    }
+-    croak(_swigerr);
+-}
+-
+-
+-XS(_wrap_new_pbs_err_to_txt) {
+-    char _swigmsg[SWIG_MAX_ERRMSG] = "";
+-    const char *_swigerr = _swigmsg;
+-    {
+-        struct pbs_err_to_txt *result;
+-        int argvi = 0;
+-        dXSARGS;
+-        
+-        if ((items < 0) || (items > 0)) {
+-            SWIG_croak("Usage: new_pbs_err_to_txt();");
+-        }
+-        result = (struct pbs_err_to_txt *)(struct pbs_err_to_txt *) calloc(1, sizeof(struct pbs_err_to_txt));
+-        
+-        ST(argvi) = sv_newmortal();
+-        SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_pbs_err_to_txt,0);
+-        XSRETURN(argvi);
+-        fail:
+-        (void) _swigerr;
+-    }
+-    croak(_swigerr);
+-}
+-
+-
+-XS(_wrap_delete_pbs_err_to_txt) {
+-    char _swigmsg[SWIG_MAX_ERRMSG] = "";
+-    const char *_swigerr = _swigmsg;
+-    {
+-        struct pbs_err_to_txt *arg1 = (struct pbs_err_to_txt *) 0 ;
+-        int argvi = 0;
+-        dXSARGS;
+-        
+-        if ((items < 1) || (items > 1)) {
+-            SWIG_croak("Usage: delete_pbs_err_to_txt(self);");
+-        }
+-        {
+-            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_pbs_err_to_txt,0) < 0) {
+-                SWIG_croak("Type error in argument 1 of delete_pbs_err_to_txt. Expected _p_pbs_err_to_txt");
+-            }
+-        }
+-        free((char *) arg1);
+-        
+-        
+-        XSRETURN(argvi);
+-        fail:
+-        (void) _swigerr;
+-    }
+-    croak(_swigerr);
+-}
+-
+-
+ XS(_wrap_rpp_open) {
+     char _swigmsg[SWIG_MAX_ERRMSG] = "";
+     const char *_swigerr = _swigmsg;
+@@ -7300,12 +7110,6 @@ static swig_command_info swig_commands[]
+ {"PBS::pbs_terminate", _wrap_pbs_terminate},
+ {"PBS::totpool", _wrap_totpool},
+ {"PBS::usepool", _wrap_usepool},
+-{"PBS::pbs_err_to_txt_err_no_set", _wrap_pbs_err_to_txt_err_no_set},
+-{"PBS::pbs_err_to_txt_err_no_get", _wrap_pbs_err_to_txt_err_no_get},
+-{"PBS::pbs_err_to_txt_err_txt_set", _wrap_pbs_err_to_txt_err_txt_set},
+-{"PBS::pbs_err_to_txt_err_txt_get", _wrap_pbs_err_to_txt_err_txt_get},
+-{"PBS::new_pbs_err_to_txt", _wrap_new_pbs_err_to_txt},
+-{"PBS::delete_pbs_err_to_txt", _wrap_delete_pbs_err_to_txt},
+ {"PBS::rpp_open", _wrap_rpp_open},
+ {"PBS::rpp_bind", _wrap_rpp_bind},
+ {"PBS::rpp_poll", _wrap_rpp_poll},
diff --git a/perl-PBS.spec b/perl-PBS.spec
index af86fc9..13e44d7 100644
--- a/perl-PBS.spec
+++ b/perl-PBS.spec
@@ -1,12 +1,13 @@
 Name:           perl-PBS
 Version:        0.33
-Release:        5%{?dist}
+Release:        9%{?dist}
 Summary:        Perl binding for the Portable Batch System client library
 
 Group:          Development/Libraries
 License:        GPL+ or Artistic
 URL:            http://www-rcf.usc.edu/~garrick/perl-PBS/
 Source0:        http://www-rcf.usc.edu/~garrick/perl-PBS/perl-PBS-%{version}.tar.gz
+Patch0:         perl-PBS-0.33-obsolete.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
 BuildRequires:  libtorque-devel perl-devel
@@ -37,6 +38,7 @@ A highly useful way to monitor your cluster in a terminal window.
 
 %prep
 %setup -q
+%patch0 -p1 -b .obsolete
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="$RPM_OPT_FLAGS"
@@ -76,6 +78,18 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Tue Jun 22 2010 Petr Pisar <ppisar at redhat.com> - 0.33-9
+- Rebuild against libtorque-2.4.8
+
+* Wed Jun 02 2010 Tom "spot" Callaway <tcallawa at redhat.com> - 0.33-8
+- remove obsolete functions no longer in torque
+
+* Tue May 04 2010 Marcela Maslanova <mmaslano at redhat.com> - 0.33-7
+- Mass rebuild with perl-5.12.0
+
+* Mon Dec  7 2009 Stepan Kasal <skasal at redhat.com> - 0.33-6
+- rebuild against perl 5.10.1
+
 * Sun Jul 26 2009 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 0.33-5
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
 



More information about the perl-devel mailing list