OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Expect?expand=0&rev=1

.gitattributes

@@ -0,0 +1,23 @@
+## Default LFS
+*.7z filter=lfs diff=lfs merge=lfs -text
+*.bsp filter=lfs diff=lfs merge=lfs -text
+*.bz2 filter=lfs diff=lfs merge=lfs -text
+*.gem filter=lfs diff=lfs merge=lfs -text
+*.gz filter=lfs diff=lfs merge=lfs -text
+*.jar filter=lfs diff=lfs merge=lfs -text
+*.lz filter=lfs diff=lfs merge=lfs -text
+*.lzma filter=lfs diff=lfs merge=lfs -text
+*.obscpio filter=lfs diff=lfs merge=lfs -text
+*.oxt filter=lfs diff=lfs merge=lfs -text
+*.pdf filter=lfs diff=lfs merge=lfs -text
+*.png filter=lfs diff=lfs merge=lfs -text
+*.rpm filter=lfs diff=lfs merge=lfs -text
+*.tbz filter=lfs diff=lfs merge=lfs -text
+*.tbz2 filter=lfs diff=lfs merge=lfs -text
+*.tgz filter=lfs diff=lfs merge=lfs -text
+*.ttf filter=lfs diff=lfs merge=lfs -text
+*.txz filter=lfs diff=lfs merge=lfs -text
+*.whl filter=lfs diff=lfs merge=lfs -text
+*.xz filter=lfs diff=lfs merge=lfs -text
+*.zip filter=lfs diff=lfs merge=lfs -text
+*.zst filter=lfs diff=lfs merge=lfs -text

.gitignore

@@ -0,0 +1 @@
+.osc

Expect-1.20.tar.gz

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:bbf70ce7cb39425a0f72c252491826747983ee82fb2d7b0a8a99d8940a58392f
+size 53388

Expect.diff

@@ -0,0 +1,63 @@
+diff -uNr Expect-1.15/examples/kibitz/kibitz Expect-new/examples/kibitz/kibitz
+--- Expect-1.15/examples/kibitz/kibitz	Sat Nov 17 14:18:49 2001
++++ Expect-new/examples/kibitz/kibitz	Fri Apr  5 09:24:52 2002
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
+ # Original author: Author: Don Libes, NIST (tcl/expect)
+ # Date written: December 5, 1991
+ # Date last editted: October 19, 1994
+diff -uNr Expect-1.15/tutorial/2.A.ftp Expect-new/tutorial/2.A.ftp
+--- Expect-1.15/tutorial/2.A.ftp	Sat Nov 17 14:18:48 2001
++++ Expect-new/tutorial/2.A.ftp	Fri Apr  5 09:24:52 2002
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
+ #	This example demonstrates how to spawn an ftp process, have it
+ #log in to a host, and grab a file off the host. This should give you a
+ #general idea of how to spawn processes and talk to them.
+diff -uNr Expect-1.15/tutorial/2.B.rlogin Expect-new/tutorial/2.B.rlogin
+--- Expect-1.15/tutorial/2.B.rlogin	Sat Nov 17 14:18:47 2001
++++ Expect-new/tutorial/2.B.rlogin	Fri Apr  5 09:24:52 2002
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
+ #	There are three new things in this example. First is the concept
+ #of closing the process, second is the concept of using regular
+ #expressions in match patterns, and third is the concept of grabbing
+diff -uNr Expect-1.15/tutorial/3.A.debugging Expect-new/tutorial/3.A.debugging
+--- Expect-1.15/tutorial/3.A.debugging	Sat Nov 17 14:18:48 2001
++++ Expect-new/tutorial/3.A.debugging	Fri Apr  5 09:24:52 2002
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
+ #	This example demonstrates how to use the debugging features in 
+ #expect. They're reasonably straghtforward.
+ #
+diff -uNr Expect-1.15/tutorial/4.A.top Expect-new/tutorial/4.A.top
+--- Expect-1.15/tutorial/4.A.top	Sat Nov 17 14:18:47 2001
++++ Expect-new/tutorial/4.A.top	Fri Apr  5 09:24:52 2002
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
+ #	This example is a replay of sorts of the rlogin example
+ #before except in this example we turn control of the process back
+ #to the user through use of interact().
+diff -uNr Expect-1.15/tutorial/5.A.top Expect-new/tutorial/5.A.top
+--- Expect-1.15/tutorial/5.A.top	Sat Nov 17 14:18:47 2001
++++ Expect-new/tutorial/5.A.top	Fri Apr  5 09:24:52 2002
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
+ #	Here we are doing this again only this time we'll do it
+ #without Echoing the password.
+ 	
+diff -uNr Expect-1.15/tutorial/5.B.top Expect-new/tutorial/5.B.top
+--- Expect-1.15/tutorial/5.B.top	Sat Nov 17 14:18:48 2001
++++ Expect-new/tutorial/5.B.top	Fri Apr  5 09:24:52 2002
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
+ #	Here we set manual_stty on the process so we can do things like
+ #hit ^Z to stop it instead of the ^Z going to the process on the other machine.
+ #	This is to say, normally when you interact with a process STDIN is

perl-Expect.changes

@@ -0,0 +1,105 @@
+-------------------------------------------------------------------
+Tue Sep 19 15:47:35 CEST 2006 - mc@suse.de
+
+- Version 1.20
+  * fixed non-localized usage of $_
+  * added new example ssh.pl
+  * added early return to send and send_slow if filehandle was closed
+  * fixed bug in expect() param handling (exact pattern "0" was ignored)
+  * fixed bug in _make_readable()
+
+-------------------------------------------------------------------
+Fri Jul 14 12:13:21 CEST 2006 - mc@suse.de
+
+- Version 1.18
+  - added param check for expect()
+  - added another pipe to synchronize spawning. Closing the slave in 
+    the parent can lead to a hang if the child already wrote 
+    something into it... 
+  - some bugfixes
+
+-------------------------------------------------------------------
+Wed Jan 25 21:39:40 CET 2006 - mls@suse.de
+
+- converted neededforbuild to BuildRequires
+
+-------------------------------------------------------------------
+Thu Sep 29 01:24:08 CEST 2005 - dmueller@suse.de
+
+- add norootforbuild 
+
+-------------------------------------------------------------------
+Fri Aug 22 14:44:02 CEST 2003 - mjancar@suse.cz
+
+- require the perl version we build with
+
+-------------------------------------------------------------------
+Fri Jul 18 17:51:29 CEST 2003 - mc@suse.de
+
+- add vendorarch changes 
+- add make test
+
+-------------------------------------------------------------------
+Mon May 19 11:33:34 CEST 2003 - mc@suse.de
+
+- removed unpackaged Files from RPM_BUILD_ROOT 
+
+-------------------------------------------------------------------
+Tue Sep 17 17:34:28 CEST 2002 - ro@suse.de
+
+- removed bogus self-provides 
+
+-------------------------------------------------------------------
+Tue Jul  2 17:40:06 MEST 2002 - mls@suse.de
+
+- remove race in .packlist generation
+
+-------------------------------------------------------------------
+Fri Apr  5 14:46:28 CEST 2002 - mc@suse.de
+
+- switch to version 1.15
+- changed tests to check out pty behaviour (max. string length) 
+- added autoflush(1) to log_file
+- split 'new' and 'spawn' to be able to set slave pty params via stty
+  before actually spawning the program
+- added print_log_file(), send() now no longer prints to log file or
+  stdout.
+- spawn() now uses IO::Pty spawn, thus exec errors are reported and
+  ssh should work too!
+- timeout handlers now also can exp_continue
+- added 'raw_pty' option, also setting master to raw if isatty()
+- use 'set_raw' instead of stty("raw"); IO::Stty now optional
+- updated docs & FAQs; explained how terminal sizes and SIGWINCH
+  should be propagated
+- bug fixes
+
+-------------------------------------------------------------------
+Wed Nov  7 15:39:07 CET 2001 - mc@suse.de
+
+- switch to version 1.12
+- exp_Max_Accum didn't work for interact.
+- removed soft_close() from DESTROY.  Being overly nice to a doomed process
+  doesn't pay off.  Old behaviour is available via
+  $Expect::Do_Soft_Close = 1;
+- cleanup of log and exp_internal output
+- added various aliases for functions starting with 'exp_'
+- moved FAQ and intro into the main pod as I got the impression
+  that many users didn't bother to read all the documentation
+  or didn't know that it was there.
+- added a hook for log_file: can be set to a code ref.
+
+-------------------------------------------------------------------
+Sun Aug 12 14:48:42 CEST 2001 - kukuk@suse.de
+
+- Fix path to perl interpreter
+
+-------------------------------------------------------------------
+Thu Jun 21 16:51:28 CEST 2001 - mc@suse.de
+
+- fixed the specfile. Used more RPM macros 
+
+-------------------------------------------------------------------
+Wed Feb 21 17:59:50 CET 2001 - mc@suse.de
+
+- first package, v1.11 
+

perl-Expect.spec

@@ -0,0 +1,127 @@
+#
+# spec file for package perl-Expect (Version 1.20)
+#
+# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# This file and all modifications and additions to the pristine
+# package are under the same license as the package itself.
+#
+# Please submit bugfixes or comments via http://bugs.opensuse.org/
+#
+
+# norootforbuild
+
+Name:           perl-Expect
+BuildRequires:  perl-IO-Stty perl-IO-Tty
+URL:            http://search.cpan.org/search?module=Expect
+License:        Artistic License
+Group:          Development/Libraries/Perl
+Requires:       perl-IO-Tty perl-IO-Stty
+Requires:       perl = %{perl_version}
+Autoreqprov:    on
+Summary:        Expect for perl
+Version:        1.20
+Release:        1
+Source:         Expect-%{version}.tar.gz
+Patch:          Expect.diff
+BuildRoot:      %{_tmppath}/%{name}-%{version}-build
+
+%description
+A tool for automating interactive programs
+
+
+
+Authors:
+--------
+    Roland Giersig <RGiersig@cpan.org>
+    Austin Schutz <tex@habit.com>
+
+%prep
+%setup -n Expect-%{version}
+%patch -p1
+
+%build
+touch $RPM_BUILD_ROOT/timestamp
+perl Makefile.PL
+make
+make test
+
+%install
+[ "$RPM_BUILD_ROOT" != "/" ] && [ -d $RPM_BUILD_ROOT ] && rm -rf $RPM_BUILD_ROOT;
+make DESTDIR=$RPM_BUILD_ROOT install_vendor
+%perl_process_packlist
+
+%files
+%defattr(-,root,root)
+%doc Changes MANIFEST README
+%{perl_vendorarch}/auto/Expect/
+/%{perl_vendorlib}/Expect.pod
+/%{perl_vendorlib}/Expect.pm
+%doc tutorial
+%doc examples
+%doc %{_mandir}/man3/*
+/var/adm/perl-modules/perl-Expect
+
+%changelog -n perl-Expect
+* Tue Sep 19 2006 - mc@suse.de
+- Version 1.20
+  * fixed non-localized usage of $_
+  * added new example ssh.pl
+  * added early return to send and send_slow if filehandle was closed
+  * fixed bug in expect() param handling (exact pattern "0" was ignored)
+  * fixed bug in _make_readable()
+* Fri Jul 14 2006 - mc@suse.de
+- Version 1.18
+- added param check for expect()
+- added another pipe to synchronize spawning. Closing the slave in
+  the parent can lead to a hang if the child already wrote
+  something into it...
+- some bugfixes
+* Wed Jan 25 2006 - mls@suse.de
+- converted neededforbuild to BuildRequires
+* Thu Sep 29 2005 - dmueller@suse.de
+- add norootforbuild
+* Fri Aug 22 2003 - mjancar@suse.cz
+- require the perl version we build with
+* Fri Jul 18 2003 - mc@suse.de
+- add vendorarch changes
+- add make test
+* Mon May 19 2003 - mc@suse.de
+- removed unpackaged Files from RPM_BUILD_ROOT
+* Tue Sep 17 2002 - ro@suse.de
+- removed bogus self-provides
+* Tue Jul 02 2002 - mls@suse.de
+- remove race in .packlist generation
+* Fri Apr 05 2002 - mc@suse.de
+- switch to version 1.15
+- changed tests to check out pty behaviour (max. string length)
+- added autoflush(1) to log_file
+- split 'new' and 'spawn' to be able to set slave pty params via stty
+  before actually spawning the program
+- added print_log_file(), send() now no longer prints to log file or
+  stdout.
+- spawn() now uses IO::Pty spawn, thus exec errors are reported and
+  ssh should work too!
+- timeout handlers now also can exp_continue
+- added 'raw_pty' option, also setting master to raw if isatty()
+- use 'set_raw' instead of stty("raw"); IO::Stty now optional
+- updated docs & FAQs; explained how terminal sizes and SIGWINCH
+  should be propagated
+- bug fixes
+* Wed Nov 07 2001 - mc@suse.de
+- switch to version 1.12
+- exp_Max_Accum didn't work for interact.
+- removed soft_close() from DESTROY.  Being overly nice to a doomed process
+  doesn't pay off.  Old behaviour is available via
+  $Expect::Do_Soft_Close = 1;
+- cleanup of log and exp_internal output
+- added various aliases for functions starting with 'exp_'
+- moved FAQ and intro into the main pod as I got the impression
+  that many users didn't bother to read all the documentation
+  or didn't know that it was there.
+- added a hook for log_file: can be set to a code ref.
+* Sun Aug 12 2001 - kukuk@suse.de
+- Fix path to perl interpreter
+* Thu Jun 21 2001 - mc@suse.de
+- fixed the specfile. Used more RPM macros
+* Wed Feb 21 2001 - mc@suse.de
+- first package, v1.11