rpms/perl-PBS/devel perl-PBS-0.33-obsolete.patch, NONE, 1.1 perl-PBS.spec, 1.10, 1.11
Tom Callaway
spot at fedoraproject.org
Wed Jun 2 15:15:15 UTC 2010
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 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
More information about the perl-devel
mailing list