Hello community, here is the log from the commit of package perl-IO-Stty for openSUSE:Factory checked in at 2020-02-05 19:43:34 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-IO-Stty (Old) and /work/SRC/openSUSE:Factory/.perl-IO-Stty.new.26092 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-IO-Stty" Wed Feb 5 19:43:34 2020 rev:19 rq:770242 version:0.04 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-IO-Stty/perl-IO-Stty.changes 2011-09-23 12:37:34.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-IO-Stty.new.26092/perl-IO-Stty.changes 2020-02-05 19:44:27.511346459 +0100 @@ -1,0 +2,16 @@ +Mon Jan 20 03:09:11 UTC 2020 - <[email protected]> + +- updated to 0.04 + see /usr/share/doc/packages/perl-IO-Stty/Changes + + 0.04 Sat Jan 18 2020 + - Switch to EU::MM + - Address a few deficiencies in the way how the stty() sub processes its arguments + - Enable testing on Github actions. + + 0.03 Thu May 6 2010 + - Re-vamp IO::Stty to modern layout + - stty.txt moved into POD for module + - stty.pl in docs. Die if no params passed to stty + +------------------------------------------------------------------- Old: ---- IO-Stty-0.03.tar.gz New: ---- IO-Stty-0.04.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-Stty.spec ++++++ --- /var/tmp/diff_new_pack.Y6oym2/_old 2020-02-05 19:44:28.119346748 +0100 +++ /var/tmp/diff_new_pack.Y6oym2/_new 2020-02-05 19:44:28.123346750 +0100 @@ -1,7 +1,7 @@ # -# spec file for package perl-IO-Stty (Version 0.03) +# spec file for package perl-IO-Stty # -# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2020 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -12,64 +12,46 @@ # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. -# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# Please submit bugfixes or comments via https://bugs.opensuse.org/ # -# norootforbuild - -%bcond_with pod Name: perl-IO-Stty +Version: 0.04 +Release: 0 %define cpan_name IO-Stty -Summary: IO::Stty Perl module -Version: 0.03 -Release: 2 -License: GPL-1.0+ or Artistic-1.0 +Summary: Change and print terminal line settings +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl -Url: http://search.cpan.org/dist/IO-Stty/ -Source: http://www.cpan.org/modules/by-module/IO/IO-Stty-%{version}.tar.gz -#Source: %{cpan_name}-%{version}.tar.bz2 +Url: https://metacpan.org/release/%{cpan_name} +Source0: https://cpan.metacpan.org/authors/id/T/TO/TODDR/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build -%{perl_requires} BuildRequires: perl -BuildRequires: perl(Module::Build) BuildRequires: perl-macros -%if %{with pod} -BuildRequires: perl(Test::Pod) >= 1.22 -BuildRequires: perl(Test::Pod::Coverage) >= 1.08 -%endif -# +%{perl_requires} %description This is the PERL POSIX compliant stty. -Authors: --------- - Austin Schutz <[email protected]> - Todd Rinaldo <[email protected]> - %prep %setup -q -n %{cpan_name}-%{version} -#rpmlint: wrong-script-interpreter -%{__sed} -i -e "s@/usr/local/perl/bin/perl@%{__perl}@" scripts/stty.pl %build -%{__perl} Build.PL installdirs=vendor -./Build +perl Makefile.PL INSTALLDIRS=vendor +make %{?_smp_mflags} %check -./Build test +make test %install -./Build install destdir=$RPM_BUILD_ROOT create_packlist=0 +%perl_make_install +%perl_process_packlist %perl_gen_filelist -%clean -%{__rm} -rf $RPM_BUILD_ROOT - %files -f %{name}.files -%defattr(-,root,root,-) -%doc Changes README scripts +%defattr(-,root,root,755) +%doc Changes README %changelog ++++++ IO-Stty-0.03.tar.gz -> IO-Stty-0.04.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Stty-0.03/Build.PL new/IO-Stty-0.04/Build.PL --- old/IO-Stty-0.03/Build.PL 2010-05-06 07:24:25.000000000 +0200 +++ new/IO-Stty-0.04/Build.PL 1970-01-01 01:00:00.000000000 +0100 @@ -1,29 +0,0 @@ -use strict; -use warnings; -use Module::Build; - -my $builder = Module::Build->new( - module_name => 'IO::Stty', - author => 'Austin Schutz <[email protected]>', - dist_version_from => 'lib/IO/Stty.pm', - abstract_from => 'lib/IO/Stty.pm', - dist_abstract => 'lib/IO/Stty.pm', - license => 'perl', - build_requires => { - 'Test::More' => '0', - 'Module::Build' => '0.35', - }, - add_to_cleanup => ['IO-Stty-*' ], - script_files => ['scripts/stty.pl'], - meta_merge => { - resources => { - homepage => 'http://github.com/toddr/IO-Stty', -# bugtracker => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=IO-Stty', - MailingList => 'mailto:[email protected]', - repository => 'git://github.com/toddr/IO-Stty.git', - } - } -); - -$builder->create_build_script; - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Stty-0.03/Changes new/IO-Stty-0.04/Changes --- old/IO-Stty-0.03/Changes 2010-05-06 07:24:25.000000000 +0200 +++ new/IO-Stty-0.04/Changes 2020-01-19 03:23:57.000000000 +0100 @@ -1,5 +1,15 @@ Revision history for Perl extension IO::Stty +0.04 Sat Jan 18 2020 + - Switch to EU::MM + - Address a few deficiencies in the way how the stty() sub processes its arguments + - Enable testing on Github actions. + +0.03 Thu May 6 2010 + - Re-vamp IO::Stty to modern layout + - stty.txt moved into POD for module + - stty.pl in docs. Die if no params passed to stty + 0.02_01 Tue Mar 23 2010 - Re-vamp module to Module::Build - stty.txt merged into POD so it shows up on CPAN diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Stty-0.03/MANIFEST new/IO-Stty-0.04/MANIFEST --- old/IO-Stty-0.03/MANIFEST 1970-01-01 01:00:00.000000000 +0100 +++ new/IO-Stty-0.04/MANIFEST 2020-01-19 03:27:28.000000000 +0100 @@ -0,0 +1,12 @@ +Changes +lib/IO/Stty.pm +Makefile.PL +MANIFEST +MANIFEST.SKIP +README +scripts/stty.pl +t/00-load.t +t/99-pod-coverage.t +t/99-pod.t +META.yml Module YAML meta-data (added by MakeMaker) +META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Stty-0.03/MANIFEST.SKIP new/IO-Stty-0.04/MANIFEST.SKIP --- old/IO-Stty-0.03/MANIFEST.SKIP 1970-01-01 01:00:00.000000000 +0100 +++ new/IO-Stty-0.04/MANIFEST.SKIP 2020-01-19 03:23:57.000000000 +0100 @@ -0,0 +1,6 @@ +^.github/ +^.git/.* +^MYMETA.* +^MANIFEST.bak +^.gitignore +^Makefile$ \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Stty-0.03/META.json new/IO-Stty-0.04/META.json --- old/IO-Stty-0.03/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/IO-Stty-0.04/META.json 2020-01-19 03:27:27.000000000 +0100 @@ -0,0 +1,55 @@ +{ + "abstract" : "Change and print terminal line settings", + "author" : [ + "Austin Schutz <[email protected]>" + ], + "dynamic_config" : 1, + "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : 2 + }, + "name" : "IO-Stty", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0", + "Test::More" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "requires" : { + "Test::More" : "0" + } + } + }, + "release_status" : "stable", + "resources" : { + "bugtracker" : { + "web" : "http://github.com/toddr/IO-Stty/issues"; + }, + "homepage" : "http://wiki.github.com/toddr/IO-Stty";, + "license" : [ + "http://dev.perl.org/licenses/"; + ], + "repository" : { + "url" : "http://github.com/toddr/IO-Stty"; + } + }, + "version" : "0.04", + "x_serialization_backend" : "JSON::PP version 4.02" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Stty-0.03/META.yml new/IO-Stty-0.04/META.yml --- old/IO-Stty-0.03/META.yml 2010-05-06 07:24:25.000000000 +0200 +++ new/IO-Stty-0.04/META.yml 2020-01-19 03:27:27.000000000 +0100 @@ -1,26 +1,29 @@ --- -abstract: lib/IO/Stty.pm +abstract: 'Change and print terminal line settings' author: - - 'Austin Schutz <[email protected]> (Initial version and maintenance)' - - 'Todd Rinaldo <[email protected]> (Maintenance)' + - 'Austin Schutz <[email protected]>' build_requires: - Module::Build: 0.35 - Test::More: 0 + ExtUtils::MakeMaker: '0' + Test::More: '0' configure_requires: - Module::Build: 0.36 -generated_by: 'Module::Build version 0.3607' + ExtUtils::MakeMaker: '0' +dynamic_config: 1 +generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + version: '1.4' name: IO-Stty -provides: - IO::Stty: - file: lib/IO/Stty.pm - version: 0.03 +no_index: + directory: + - t + - inc +requires: + Test::More: '0' resources: - MailingList: mailto:[email protected] - homepage: http://github.com/toddr/IO-Stty + bugtracker: http://github.com/toddr/IO-Stty/issues + homepage: http://wiki.github.com/toddr/IO-Stty license: http://dev.perl.org/licenses/ - repository: git://github.com/toddr/IO-Stty.git -version: 0.03 + repository: http://github.com/toddr/IO-Stty +version: '0.04' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Stty-0.03/Makefile.PL new/IO-Stty-0.04/Makefile.PL --- old/IO-Stty-0.03/Makefile.PL 1970-01-01 01:00:00.000000000 +0100 +++ new/IO-Stty-0.04/Makefile.PL 2020-01-18 22:05:22.000000000 +0100 @@ -0,0 +1,30 @@ + +use strict; +use warnings; +use ExtUtils::MakeMaker; + +WriteMakefile( + NAME => 'IO::Stty', + AUTHOR => 'Austin Schutz <[email protected]>', + VERSION_FROM => 'lib/IO/Stty.pm', + ABSTRACT_FROM => 'lib/IO/Stty.pm', + PL_FILES => {}, + ($ExtUtils::MakeMaker::VERSION >= 6.3002 ? ('LICENSE' => 'perl', ) : ()), + PREREQ_PM => { + 'Test::More' => 0, # For testing + }, + dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, + clean => { FILES => 'IO-Stty-*' }, + META_MERGE => { + build_requires => { + 'Test::More' => 0, # For testing + 'ExtUtils::MakeMaker' => 0, + }, + resources => { + license => 'http://dev.perl.org/licenses/', + homepage => 'http://wiki.github.com/toddr/IO-Stty', + bugtracker => 'http://github.com/toddr/IO-Stty/issues', + repository => 'http://github.com/toddr/IO-Stty', + }, + }, +); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Stty-0.03/lib/IO/Stty.pm new/IO-Stty-0.04/lib/IO/Stty.pm --- old/IO-Stty-0.03/lib/IO/Stty.pm 2010-05-06 07:24:25.000000000 +0200 +++ new/IO-Stty-0.04/lib/IO/Stty.pm 2020-01-19 03:23:57.000000000 +0100 @@ -5,11 +5,11 @@ use POSIX; -our $VERSION='0.03'; +our $VERSION='0.04'; =head1 NAME -Change and print terminal line settings +IO::Stty - Change and print terminal line settings =head1 SYNOPSIS @@ -363,69 +363,6 @@ @_ or die("No parameters passed to stty"); - # Version info - if ($_[0] eq '-v' || $_[0] =~ /version/ ) { - return $IO::Stty::VERSION."\n"; - } - - - - my @parameters; - my $parameter; - # Build the 'this really means this' cases. - foreach $parameter (@_) { - if($parameter eq 'ek') { - push (@parameters,'erase',8,'kill',21); - next; - } - if($parameter eq 'sane') { - push (@parameters,'cread','-ignbrk','brkint','-inlcr','-igncr','icrnl', - '-ixoff','opost','isig','icanon','iexten','echo','echoe','echok', - '-echonl','-noflsh','-tostop','echok','intr',3,'quit',28,'erase', - 8,'kill',21,'eof',4,'eol',0,'stop',19,'start',17,'susp',26, - 'time',0,'min',0 ); - next; - # Ugh. - } - if($parameter eq 'cooked' || $parameter eq '-raw') { - # Is this right? - push (@parameters,'brkint','ignpar','istrip','icrnl','ixon','opost', - 'isig','icanon'); - push (@parameters,'intr',3,'quit',28,'erase',8,'kill',21,'eof', - 4,'eol',0,'stop',19,'start',17,'susp',26,'time',0,'min',0); - next; - } - if($parameter eq 'raw' || $parameter eq '-cooked') { - push (@parameters,'-ignbrk','-brkint','-ignpar','-parmrk','-inpck', - '-istrip','-inlcr','-igncr','-icrnl','-ixon','-ixoff', - '-opost','-isig','-icanon','min',1,'time',0 ); - next; - } - if($parameter eq 'pass8') { - push (@parameters,'-parenb','-istrip','cs8'); - next; - } - if($parameter eq '-pass8') { - push (@parameters,'parenb','istrip','cs7'); - next; - } - if($parameter eq 'crt') { - push (@parameters,'echoe','echok'); - next; - } - if($parameter eq 'dec') { - # 127 == delete, no? - push (@parameters,'echoe','echok','intr',3,'erase', 127,'kill',21); - next; - } - if($parameter =~ /^\d+$/) { - push (@parameters,'ispeed',$parameter,'ospeed',$parameter); - next; - } - push (@parameters,$parameter); - } - - # Notice fileno() instead of handle->fileno(). I want it to work with # normal fhs. my ($file_num) = fileno($tty_handle); @@ -454,13 +391,26 @@ $control_chars{'SUSP'}=$termios->getcc(VSUSP); $control_chars{'EOL'}=$termios->getcc(VEOL); # OK.. we have our crap. + + my @parameters; + my $parameter_with_value_rx = qr/^()$/; + + if(@_ == 1) { + # handle the one-arg cases specifically + # Version info + if ($_[0] =~ /^(-v|version)$/ ) { + return $IO::Stty::VERSION."\n"; + } + elsif($_[0] =~ /^\d+$/) { + push (@parameters,'ispeed',$_[0],'ospeed',$_[0]); + } # Do we want to know what the crap is? - if($parameters[0] eq '-a') { + elsif($_[0] eq '-a') { return show_me_the_crap ($c_cflag,$c_iflag,$ispeed,$c_lflag,$c_oflag, $ospeed,\%control_chars); } # did we get the '-g' flag? - if($parameters[0] eq '-g') { + if($_[0] eq '-g') { return "$c_cflag:$c_iflag:$ispeed:$c_lflag:$c_oflag:$ospeed:". $control_chars{'INTR'}.":". $control_chars{'QUIT'}.":". @@ -473,101 +423,154 @@ $control_chars{'STOP'}.":". $control_chars{'SUSP'}.":". $control_chars{'EOL'}; - } + } else { # Or the converse.. -g used before and we're getting the return. # Note that this uses the functionality of stty -g, not any specific # method. Don't take the output here and feed it to the OS stty. # This will make perl -w happy. - my(@useless_var) = split(':',$parameters[0]); - if (@useless_var == 17) { + my(@g_params) = split(':',$_[0]); + if (@g_params == 17) { # print "Feeding back...\n"; - @parameters = split(':',$parameters[0]); - ($c_cflag,$c_iflag,$ispeed,$c_lflag,$c_oflag,$ospeed)=(@parameters); - $control_chars{'INTR'}=$parameters[6]; - $control_chars{'QUIT'}=$parameters[7]; - $control_chars{'ERASE'}=$parameters[8]; - $control_chars{'KILL'}=$parameters[9]; - $control_chars{'EOF'}=$parameters[10]; - $control_chars{'TIME'}=$parameters[11]; - $control_chars{'MIN'}=$parameters[12]; - $control_chars{'START'}=$parameters[13]; - $control_chars{'STOP'}=$parameters[14]; - $control_chars{'SUSP'}=$parameters[15]; - $control_chars{'EOL'}=$parameters[16]; - @parameters=(); # Unset so while loop is passed. + ($c_cflag,$c_iflag,$ispeed,$c_lflag,$c_oflag,$ospeed)=(@g_params); + $control_chars{'INTR'}=$g_params[6]; + $control_chars{'QUIT'}=$g_params[7]; + $control_chars{'ERASE'}=$g_params[8]; + $control_chars{'KILL'}=$g_params[9]; + $control_chars{'EOF'}=$g_params[10]; + $control_chars{'TIME'}=$g_params[11]; + $control_chars{'MIN'}=$g_params[12]; + $control_chars{'START'}=$g_params[13]; + $control_chars{'STOP'}=$g_params[14]; + $control_chars{'SUSP'}=$g_params[15]; + $control_chars{'EOL'}=$g_params[16]; + # leave parameters empty + } else { + # a simple single option + @parameters = @_; + } + } + } else { + @parameters = @_; } + # So.. what shall we set? my($set_value); - while ($parameter = shift(@parameters)) { -# print "Param:$parameter:\n"; + local($_); + while (defined ($_ = shift(@parameters))) { +# print "Param:$_:\n"; + # Build the 'this really means this' cases. + if($_ eq 'ek') { + unshift(@parameters,'erase',8,'kill',21); + next; + } + if($_ eq 'sane') { + unshift(@parameters,'cread','-ignbrk','brkint','-inlcr','-igncr','icrnl', + '-ixoff','opost','isig','icanon','iexten','echo','echoe','echok', + '-echonl','-noflsh','-tostop','echok','intr',3,'quit',28,'erase', + 8,'kill',21,'eof',4,'eol',0,'stop',19,'start',17,'susp',26, + 'time',0,'min',0 ); + next; + # Ugh. + } + if($_ eq 'cooked' || $_ eq '-raw') { + # Is this right? + unshift(@parameters,'brkint','ignpar','istrip','icrnl','ixon','opost', + 'isig','icanon', + 'intr',3,'quit',28,'erase',8,'kill',21,'eof', + 4,'eol',0,'stop',19,'start',17,'susp',26,'time',0,'min',0); + next; + } + if($_ eq 'raw' || $_ eq '-cooked') { + unshift(@parameters,'-ignbrk','-brkint','-ignpar','-parmrk','-inpck', + '-istrip','-inlcr','-igncr','-icrnl','-ixon','-ixoff', + '-opost','-isig','-icanon','min',1,'time',0 ); + next; + } + if($_ eq 'pass8') { + unshift(@parameters,'-parenb','-istrip','cs8'); + next; + } + if($_ eq '-pass8') { + unshift(@parameters,'parenb','istrip','cs7'); + next; + } + if($_ eq 'crt') { + unshift(@parameters,'echoe','echok'); + next; + } + if($_ eq 'dec') { + # 127 == delete, no? + unshift(@parameters,'echoe','echok','intr',3,'erase', 127,'kill',21); + next; + } $set_value = 1; # On by default... # unset if starts w/ -, as in -crtscts - $set_value = 0 if $parameter=~ s/^\-//; + $set_value = 0 if s/^\-//; # Now the fun part. # c_cc field crap. - if ($parameter eq 'intr') { $control_chars{'INTR'} = shift @parameters; next;} - if ($parameter eq 'quit') { $control_chars{'QUIT'} = shift @parameters; next;} - if ($parameter eq 'erase') { $control_chars{'ERASE'} = shift @parameters; next;} - if ($parameter eq 'kill') { $control_chars{'KILL'} = shift @parameters; next;} - if ($parameter eq 'eof') { $control_chars{'EOF'} = shift @parameters; next;} - if ($parameter eq 'eol') { $control_chars{'EOL'} = shift @parameters; next;} - if ($parameter eq 'start') { $control_chars{'START'} = shift @parameters; next;} - if ($parameter eq 'stop') { $control_chars{'STOP'} = shift @parameters; next;} - if ($parameter eq 'susp') { $control_chars{'SUSP'} = shift @parameters; next;} - if ($parameter eq 'min') { $control_chars{'MIN'} = shift @parameters; next;} - if ($parameter eq 'time') { $control_chars{'TIME'} = shift @parameters; next;} + if ($_ eq 'intr') { $control_chars{'INTR'} = shift @parameters; next;} + if ($_ eq 'quit') { $control_chars{'QUIT'} = shift @parameters; next;} + if ($_ eq 'erase') { $control_chars{'ERASE'} = shift @parameters; next;} + if ($_ eq 'kill') { $control_chars{'KILL'} = shift @parameters; next;} + if ($_ eq 'eof') { $control_chars{'EOF'} = shift @parameters; next;} + if ($_ eq 'eol') { $control_chars{'EOL'} = shift @parameters; next;} + if ($_ eq 'start') { $control_chars{'START'} = shift @parameters; next;} + if ($_ eq 'stop') { $control_chars{'STOP'} = shift @parameters; next;} + if ($_ eq 'susp') { $control_chars{'SUSP'} = shift @parameters; next;} + if ($_ eq 'min') { $control_chars{'MIN'} = shift @parameters; next;} + if ($_ eq 'time') { $control_chars{'TIME'} = shift @parameters; next;} # c_cflag crap - if ($parameter eq 'clocal') { $c_cflag = ($set_value ? ($c_cflag | CLOCAL) : ($c_cflag & (~CLOCAL))); next; } - if ($parameter eq 'cread') { $c_cflag = ($set_value ? ($c_cflag | CREAD) : ($c_cflag & (~CREAD))); next; } + if ($_ eq 'clocal') { $c_cflag = ($set_value ? ($c_cflag | CLOCAL) : ($c_cflag & (~CLOCAL))); next; } + if ($_ eq 'cread') { $c_cflag = ($set_value ? ($c_cflag | CREAD) : ($c_cflag & (~CREAD))); next; } # As best I can tell, doing |~CS8 will clear the bits.. under solaris # anyway, where CS5 = 0, CS6 = 0x20, CS7= 0x40, CS8=0x60 - if ($parameter eq 'cs5') { $c_cflag = (($c_cflag & ~CS8 )| CS5); next; } - if ($parameter eq 'cs6') { $c_cflag = (($c_cflag & ~CS8 )| CS6); next; } - if ($parameter eq 'cs7') { $c_cflag = (($c_cflag & ~CS8 )| CS7); next; } - if ($parameter eq 'cs8') { $c_cflag = ($c_cflag | CS8); next; } - if ($parameter eq 'cstopb') { $c_cflag = ($set_value ? ($c_cflag | CSTOPB) : ($c_cflag & (~CSTOPB))); next; } - if ($parameter eq 'hupcl' || $parameter eq 'hup') { $c_cflag = ($set_value ? ($c_cflag | HUPCL) : ($c_cflag & (~HUPCL))); next; } - if ($parameter eq 'parenb') { $c_cflag = ($set_value ? ($c_cflag | PARENB) : ($c_cflag & (~PARENB))); next; } - if ($parameter eq 'parodd') { $c_cflag = ($set_value ? ($c_cflag | PARODD) : ($c_cflag & (~PARODD))); next; } + if ($_ eq 'cs5') { $c_cflag = (($c_cflag & ~CS8 )| CS5); next; } + if ($_ eq 'cs6') { $c_cflag = (($c_cflag & ~CS8 )| CS6); next; } + if ($_ eq 'cs7') { $c_cflag = (($c_cflag & ~CS8 )| CS7); next; } + if ($_ eq 'cs8') { $c_cflag = ($c_cflag | CS8); next; } + if ($_ eq 'cstopb') { $c_cflag = ($set_value ? ($c_cflag | CSTOPB) : ($c_cflag & (~CSTOPB))); next; } + if ($_ eq 'hupcl' || $_ eq 'hup') { $c_cflag = ($set_value ? ($c_cflag | HUPCL) : ($c_cflag & (~HUPCL))); next; } + if ($_ eq 'parenb') { $c_cflag = ($set_value ? ($c_cflag | PARENB) : ($c_cflag & (~PARENB))); next; } + if ($_ eq 'parodd') { $c_cflag = ($set_value ? ($c_cflag | PARODD) : ($c_cflag & (~PARODD))); next; } # That was fun. Still awake? c_iflag time. - if ($parameter eq 'brkint') { $c_iflag = (($set_value ? ($c_iflag | BRKINT) : ($c_iflag & (~BRKINT)))); next; } - if ($parameter eq 'icrnl') { $c_iflag = (($set_value ? ($c_iflag | ICRNL) : ($c_iflag & (~ICRNL)))); next; } - if ($parameter eq 'ignbrk') { $c_iflag = (($set_value ? ($c_iflag | IGNBRK) : ($c_iflag & (~IGNBRK)))); next; } - if ($parameter eq 'igncr') { $c_iflag = (($set_value ? ($c_iflag | IGNCR) : ($c_iflag & (~IGNCR)))); next; } - if ($parameter eq 'ignpar') { $c_iflag = (($set_value ? ($c_iflag | IGNPAR) : ($c_iflag & (~IGNPAR)))); next; } - if ($parameter eq 'inlcr') { $c_iflag = (($set_value ? ($c_iflag | INLCR) : ($c_iflag & (~INLCR)))); next; } - if ($parameter eq 'inpck') { $c_iflag = (($set_value ? ($c_iflag | INPCK) : ($c_iflag & (~INPCK)))); next; } - if ($parameter eq 'istrip') { $c_iflag = (($set_value ? ($c_iflag | ISTRIP) : ($c_iflag & (~ISTRIP)))); next; } - if ($parameter eq 'ixoff') { $c_iflag = (($set_value ? ($c_iflag | IXOFF) : ($c_iflag & (~IXOFF)))); next; } - if ($parameter eq 'ixon') { $c_iflag = (($set_value ? ($c_iflag | IXON) : ($c_iflag & (~IXON)))); next; } - if ($parameter eq 'parmrk') { $c_iflag = (($set_value ? ($c_iflag | PARMRK) : ($c_iflag & (~PARMRK)))); next; } + if ($_ eq 'brkint') { $c_iflag = (($set_value ? ($c_iflag | BRKINT) : ($c_iflag & (~BRKINT)))); next; } + if ($_ eq 'icrnl') { $c_iflag = (($set_value ? ($c_iflag | ICRNL) : ($c_iflag & (~ICRNL)))); next; } + if ($_ eq 'ignbrk') { $c_iflag = (($set_value ? ($c_iflag | IGNBRK) : ($c_iflag & (~IGNBRK)))); next; } + if ($_ eq 'igncr') { $c_iflag = (($set_value ? ($c_iflag | IGNCR) : ($c_iflag & (~IGNCR)))); next; } + if ($_ eq 'ignpar') { $c_iflag = (($set_value ? ($c_iflag | IGNPAR) : ($c_iflag & (~IGNPAR)))); next; } + if ($_ eq 'inlcr') { $c_iflag = (($set_value ? ($c_iflag | INLCR) : ($c_iflag & (~INLCR)))); next; } + if ($_ eq 'inpck') { $c_iflag = (($set_value ? ($c_iflag | INPCK) : ($c_iflag & (~INPCK)))); next; } + if ($_ eq 'istrip') { $c_iflag = (($set_value ? ($c_iflag | ISTRIP) : ($c_iflag & (~ISTRIP)))); next; } + if ($_ eq 'ixoff') { $c_iflag = (($set_value ? ($c_iflag | IXOFF) : ($c_iflag & (~IXOFF)))); next; } + if ($_ eq 'ixon') { $c_iflag = (($set_value ? ($c_iflag | IXON) : ($c_iflag & (~IXON)))); next; } + if ($_ eq 'parmrk') { $c_iflag = (($set_value ? ($c_iflag | PARMRK) : ($c_iflag & (~PARMRK)))); next; } # Are we there yet? No. Are we there yet? No. Are we there yet... # print "Values: $c_lflag,".($c_lflag | ECHO)." ".($c_lflag & (~ECHO))."\n"; - if ($parameter eq 'echo') { $c_lflag = (($set_value ? ($c_lflag | ECHO) : ($c_lflag & (~ECHO)))); next; } - if ($parameter eq 'echoe') { $c_lflag = (($set_value ? ($c_lflag | ECHOE) : ($c_lflag & (~ECHOE)))); next; } - if ($parameter eq 'echok') { $c_lflag = (($set_value ? ($c_lflag | ECHOK) : ($c_lflag & (~ECHOK)))); next; } - if ($parameter eq 'echonl') { $c_lflag = (($set_value ? ($c_lflag | ECHONL) : ($c_lflag & (~ECHONL)))); next; } - if ($parameter eq 'icanon') { $c_lflag = (($set_value ? ($c_lflag | ICANON) : ($c_lflag & (~ICANON)))); next; } - if ($parameter eq 'iexten') { $c_lflag = (($set_value ? ($c_lflag | IEXTEN) : ($c_lflag & (~IEXTEN)))); next; } - if ($parameter eq 'isig') { $c_lflag = (($set_value ? ($c_lflag | ISIG) : ($c_lflag & (~ISIG)))); next; } - if ($parameter eq 'noflsh') { $c_lflag = (($set_value ? ($c_lflag | NOFLSH) : ($c_lflag & (~NOFLSH)))); next; } - if ($parameter eq 'tostop') { $c_lflag = (($set_value ? ($c_lflag | TOSTOP) : ($c_lflag & (~TOSTOP)))); next; } + if ($_ eq 'echo') { $c_lflag = (($set_value ? ($c_lflag | ECHO) : ($c_lflag & (~ECHO)))); next; } + if ($_ eq 'echoe') { $c_lflag = (($set_value ? ($c_lflag | ECHOE) : ($c_lflag & (~ECHOE)))); next; } + if ($_ eq 'echok') { $c_lflag = (($set_value ? ($c_lflag | ECHOK) : ($c_lflag & (~ECHOK)))); next; } + if ($_ eq 'echonl') { $c_lflag = (($set_value ? ($c_lflag | ECHONL) : ($c_lflag & (~ECHONL)))); next; } + if ($_ eq 'icanon') { $c_lflag = (($set_value ? ($c_lflag | ICANON) : ($c_lflag & (~ICANON)))); next; } + if ($_ eq 'iexten') { $c_lflag = (($set_value ? ($c_lflag | IEXTEN) : ($c_lflag & (~IEXTEN)))); next; } + if ($_ eq 'isig') { $c_lflag = (($set_value ? ($c_lflag | ISIG) : ($c_lflag & (~ISIG)))); next; } + if ($_ eq 'noflsh') { $c_lflag = (($set_value ? ($c_lflag | NOFLSH) : ($c_lflag & (~NOFLSH)))); next; } + if ($_ eq 'tostop') { $c_lflag = (($set_value ? ($c_lflag | TOSTOP) : ($c_lflag & (~TOSTOP)))); next; } # Make it stop! Make it stop! # c_oflag crap. - if ($parameter eq 'opost') { $c_oflag = (($set_value ? ($c_oflag | OPOST) : ($c_oflag & (~OPOST)))); next; } + if ($_ eq 'opost') { $c_oflag = (($set_value ? ($c_oflag | OPOST) : ($c_oflag & (~OPOST)))); next; } # Speed? - if ($parameter eq 'ospeed') { $ospeed = &{"POSIX::B".shift(@parameters)}; next; } - if ($parameter eq 'ispeed') { $ispeed = &{"POSIX::B".shift(@parameters)}; next; } + if ($_ eq 'ospeed') { $ospeed = &{"POSIX::B".shift(@parameters)}; next; } + if ($_ eq 'ispeed') { $ispeed = &{"POSIX::B".shift(@parameters)}; next; } # Default.. parameter hasn't matched anything -# print "char:".sprintf("%lo",ord($parameter))."\n"; - warn "IO::Stty::stty passed invalid parameter '$parameter'\n"; +# print "char:".sprintf("%lo",ord($_))."\n"; + warn "IO::Stty::stty passed invalid parameter '$_'\n"; } # What a pain in the ass! Ok.. let's write the crap back. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Stty-0.03/t/98-pod-coverage.t new/IO-Stty-0.04/t/98-pod-coverage.t --- old/IO-Stty-0.03/t/98-pod-coverage.t 2010-05-06 07:24:25.000000000 +0200 +++ new/IO-Stty-0.04/t/98-pod-coverage.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,18 +0,0 @@ -use strict; -use warnings; -use Test::More; - -# Ensure a recent version of Test::Pod::Coverage -my $min_tpc = 1.08; -eval "use Test::Pod::Coverage $min_tpc"; -plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage" - if $@; - -# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version, -# but older versions don't recognize some common documentation styles -my $min_pc = 0.18; -eval "use Pod::Coverage $min_pc"; -plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" - if $@; - -all_pod_coverage_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Stty-0.03/t/99-pod-coverage.t new/IO-Stty-0.04/t/99-pod-coverage.t --- old/IO-Stty-0.03/t/99-pod-coverage.t 1970-01-01 01:00:00.000000000 +0100 +++ new/IO-Stty-0.04/t/99-pod-coverage.t 2020-01-18 22:09:07.000000000 +0100 @@ -0,0 +1,13 @@ +#!perl + +use Test::More; + +plan skip_all => "\$ENV{RELEASE_TESTING} required for these tests" if(!$ENV{RELEASE_TESTING}); + +eval "use Test::Pod::Coverage 1.04"; +plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; + +plan tests => 1; + +#my $private_subs = { private => [qr/^(BUILD|_callback_maker|_init_jabber|_process_jabber_message|_request_version|_send_individual_message)$/] }; +pod_coverage_ok('IO::Stty', $private_subs, "Test IO::Stty for docs. Private functions not listed in docs"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Stty-0.03/t/99-pod.t new/IO-Stty-0.04/t/99-pod.t --- old/IO-Stty-0.03/t/99-pod.t 2010-05-06 07:24:25.000000000 +0200 +++ new/IO-Stty-0.04/t/99-pod.t 2020-01-18 22:08:05.000000000 +0100 @@ -1,12 +1,10 @@ #!perl -T -use strict; -use warnings; use Test::More; -# Ensure a recent version of Test::Pod -my $min_tp = 1.22; -eval "use Test::Pod $min_tp"; -plan skip_all => "Test::Pod $min_tp required for testing POD" if $@; +plan skip_all => "\$ENV{RELEASE_TESTING} required for these tests" if(!$ENV{RELEASE_TESTING}); + +eval "use Test::Pod 1.14"; +plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; all_pod_files_ok(); ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #description: |- # override description from CPAN #summary: override summary from CPAN #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_build: |- # rm unused.files #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: |- #./Build build flags=%{?_smp_mflags} --myflag #custom_test: |- #startserver && make test #ignore_requires: Bizarre::Module
