commit eea5f13649de57dbf34f24353ba12255ceadcc7e
Author: steve <steve@xxxxxxxxxx>
Date: Fri Jul 30 17:52:59 2010 +0200
* Tue Jun 22 2010 Petr Pisar <ppisar@xxxxxxxxxx> - 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@xxxxxxxxxx> - 0.33-9
+- Rebuild against libtorque-2.4.8
+
+* 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
+
+* Mon Dec 7 2009 Stepan Kasal <skasal@xxxxxxxxxx> - 0.33-6
+- rebuild against perl 5.10.1
+
* Sun Jul 26 2009 Fedora Release Engineering <rel-eng@xxxxxxxxxxxxxxxxxxxxxxx> - 0.33-5
- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
--
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
