rpms/perl-PBS/devel perl-PBS-0.33-obsolete.patch, NONE, 1.1 perl-PBS.spec, 1.10, 1.11

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

 



Author: spot

Update of /cvs/pkgs/rpms/perl-PBS/devel
In directory cvs01.phx2.fedoraproject.org:/tmp/cvs-serv4735

Modified Files:
	perl-PBS.spec 
Added Files:
	perl-PBS-0.33-obsolete.patch 
Log Message:
fix perl-PBS to build against latest torque (2.4.8)

perl-PBS-0.33-obsolete.patch:
 PBS_wrap.c |  196 -------------------------------------------------------------
 1 file changed, 196 deletions(-)

--- NEW FILE perl-PBS-0.33-obsolete.patch ---
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},


Index: perl-PBS.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-PBS/devel/perl-PBS.spec,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -p -r1.10 -r1.11
--- perl-PBS.spec	4 May 2010 17:02:00 -0000	1.10
+++ perl-PBS.spec	2 Jun 2010 15:15:15 -0000	1.11
@@ -1,12 +1,13 @@
 Name:           perl-PBS
 Version:        0.33
-Release:        7%{?dist}
+Release:        8%{?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 clus
 
 %prep
 %setup -q
+%patch0 -p1 -b .obsolete
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="$RPM_OPT_FLAGS"
@@ -76,6 +78,9 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Wed Jun 02 2010 Tom "spot" Callaway <tcallawa@xxxxxxxxxx> - 0.33-8
+- remove obsolete functions no longer in torque
+
 * Tue May 04 2010 Marcela Maslanova <mmaslano@xxxxxxxxxx> - 0.33-7
 - Mass rebuild with perl-5.12.0
 

--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel


[Index of Archives]     [Fedora Announce]     [Fedora Kernel]     [Fedora Testing]     [Fedora Legacy Announce]     [Fedora PHP Devel]     [Kernel Devel]     [Fedora Legacy]     [Fedora Maintainers]     [Fedora Desktop]     [PAM]     [Red Hat Development]     [Big List of Linux Books]     [Gimp]     [Yosemite Information]
  Powered by Linux