Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
  • 2 commits
  • 83 files changed
  • 0 commit comments
  • 1 contributor
Commits on Feb 14, 2014
@tsibley tsibley Use PerlIO's support for in-memory files via a scalar ref instead of …
…piping from echo

echo is less portable than in-memory files.  On Solaris, for example,
/bin/echo does not support the -n flag and instead faithfully prints
every single argument.

I'm not sure the -n flag is actually needed — why suppress the trailing
newline? — but using an in-memory file should be more reliable than
spawning a child process and reading from a shared pipe.

Of note: ok() is not actually available within this package, so I simply
switched to die() instead of importing Test::More and futzing with
$Test::Builder::Level.
f418bfa
@tsibley tsibley Release 4.0.4 ec38172
Showing with 93 additions and 84 deletions.
  1. +8 −0 Changes
  2. +1 −1  doc/recs-flatten.pod
  3. +1 −1  doc/recs-fromkv.pod
  4. +1 −1  lib/App/RecordStream.pm
  5. +1 −1  lib/App/RecordStream/Accumulator.pm
  6. +1 −1  lib/App/RecordStream/Aggregator.pm
  7. +1 −1  lib/App/RecordStream/Aggregator/Aggregation.pm
  8. +1 −1  lib/App/RecordStream/Aggregator/Average.pm
  9. +1 −1  lib/App/RecordStream/Aggregator/Concatenate.pm
  10. +1 −1  lib/App/RecordStream/Aggregator/Correlation.pm
  11. +1 −1  lib/App/RecordStream/Aggregator/Count.pm
  12. +1 −1  lib/App/RecordStream/Aggregator/CountBy.pm
  13. +1 −1  lib/App/RecordStream/Aggregator/Covariance.pm
  14. +1 −1  lib/App/RecordStream/Aggregator/DistinctCount.pm
  15. +1 −1  lib/App/RecordStream/Aggregator/First.pm
  16. +1 −1  lib/App/RecordStream/Aggregator/FirstRecord.pm
  17. +1 −1  lib/App/RecordStream/Aggregator/InjectInto.pm
  18. +1 −1  lib/App/RecordStream/Aggregator/InjectInto/Field.pm
  19. +1 −1  lib/App/RecordStream/Aggregator/Last.pm
  20. +1 −1  lib/App/RecordStream/Aggregator/LastRecord.pm
  21. +1 −1  lib/App/RecordStream/Aggregator/MapReduce.pm
  22. +1 −1  lib/App/RecordStream/Aggregator/MapReduce/Field.pm
  23. +1 −1  lib/App/RecordStream/Aggregator/MapReduce/FieldSet.pm
  24. +1 −1  lib/App/RecordStream/Aggregator/Maximum.pm
  25. +1 −1  lib/App/RecordStream/Aggregator/Minimum.pm
  26. +1 −1  lib/App/RecordStream/Aggregator/Mode.pm
  27. +1 −1  lib/App/RecordStream/Aggregator/Ord2Bivariate.pm
  28. +1 −1  lib/App/RecordStream/Aggregator/Ord2Univariate.pm
  29. +1 −1  lib/App/RecordStream/Aggregator/Percentile.pm
  30. +1 −1  lib/App/RecordStream/Aggregator/PercentileMap.pm
  31. +1 −1  lib/App/RecordStream/Aggregator/RecordForMaximum.pm
  32. +1 −1  lib/App/RecordStream/Aggregator/RecordForMinimum.pm
  33. +1 −1  lib/App/RecordStream/Aggregator/Records.pm
  34. +1 −1  lib/App/RecordStream/Aggregator/StandardDeviation.pm
  35. +1 −1  lib/App/RecordStream/Aggregator/Sum.pm
  36. +1 −1  lib/App/RecordStream/Aggregator/UniqConcatenate.pm
  37. +1 −1  lib/App/RecordStream/Aggregator/ValuesToKeys.pm
  38. +1 −1  lib/App/RecordStream/Aggregator/Variance.pm
  39. +1 −1  lib/App/RecordStream/DBHandle.pm
  40. +1 −1  lib/App/RecordStream/Executor.pm
  41. +1 −1  lib/App/RecordStream/InputStream.pm
  42. +1 −1  lib/App/RecordStream/KeyGroups.pm
  43. +1 −1  lib/App/RecordStream/KeySpec.pm
  44. +1 −1  lib/App/RecordStream/LRUSheriff.pm
  45. +1 −1  lib/App/RecordStream/Operation.pm
  46. +1 −1  lib/App/RecordStream/Operation/annotate.pm
  47. +1 −1  lib/App/RecordStream/Operation/chain.pm
  48. +1 −1  lib/App/RecordStream/Operation/collate.pm
  49. +1 −1  lib/App/RecordStream/Operation/delta.pm
  50. +1 −1  lib/App/RecordStream/Operation/eval.pm
  51. +1 −1  lib/App/RecordStream/Operation/flatten.pm
  52. +1 −1  lib/App/RecordStream/Operation/fromatomfeed.pm
  53. +1 −1  lib/App/RecordStream/Operation/fromcsv.pm
  54. +1 −1  lib/App/RecordStream/Operation/fromdb.pm
  55. +1 −1  lib/App/RecordStream/Operation/fromkv.pm
  56. +1 −1  lib/App/RecordStream/Operation/frommongo.pm
  57. +1 −1  lib/App/RecordStream/Operation/frommultire.pm
  58. +1 −1  lib/App/RecordStream/Operation/fromps.pm
  59. +1 −1  lib/App/RecordStream/Operation/fromre.pm
  60. +1 −1  lib/App/RecordStream/Operation/fromsplit.pm
  61. +1 −1  lib/App/RecordStream/Operation/fromtcpdump.pm
  62. +1 −1  lib/App/RecordStream/Operation/fromxml.pm
  63. +1 −1  lib/App/RecordStream/Operation/generate.pm
  64. +1 −1  lib/App/RecordStream/Operation/grep.pm
  65. +1 −1  lib/App/RecordStream/Operation/join.pm
  66. +1 −1  lib/App/RecordStream/Operation/normalizetime.pm
  67. +1 −1  lib/App/RecordStream/Operation/sort.pm
  68. +1 −1  lib/App/RecordStream/Operation/tocsv.pm
  69. +1 −1  lib/App/RecordStream/Operation/todb.pm
  70. +1 −1  lib/App/RecordStream/Operation/togdgraph.pm
  71. +1 −1  lib/App/RecordStream/Operation/tognuplot.pm
  72. +1 −1  lib/App/RecordStream/Operation/tohtml.pm
  73. +1 −1  lib/App/RecordStream/Operation/topn.pm
  74. +1 −1  lib/App/RecordStream/Operation/toprettyprint.pm
  75. +1 −1  lib/App/RecordStream/Operation/toptable.pm
  76. +1 −1  lib/App/RecordStream/Operation/totable.pm
  77. +1 −1  lib/App/RecordStream/Operation/xform.pm
  78. +1 −1  lib/App/RecordStream/OptionalRequire.pm
  79. +1 −1  lib/App/RecordStream/OutputStream.pm
  80. +1 −1  lib/App/RecordStream/Record.pm
  81. +1 −1  lib/App/RecordStream/Site.pm
  82. +1 −1  lib/App/RecordStream/Test/OperationHelper.pm
  83. +4 −3 lib/App/RecordStream/Test/Tester.pm
View
8 Changes
@@ -1,3 +1,11 @@
+4.0.4 - 2014-02-13
+
+ - Documentation: Fix typos in usage documentation for fromkv and flatten
+ (Brandon Forehand)
+
+ - Tests: Re-open STDIN using in-memory strings instead of `echo` to work on
+ more platforms (Thomas Sibley)
+
4.0.3 - 2014-02-08
- Help: Fix quoting which hid the default delimiter to recs-fromsplit
View
2  doc/recs-flatten.pod
@@ -6,7 +6,7 @@ recs-flatten
Help from: --help-basic:
Usage: recs-flatten <args> [<files>]
- Flatten nested structues in records.
+ Flatten nested structures in records.
NOTE: This script implements a strategy for dealing with nested structures
that is almost always better handled by using keyspecs or keygroups.
View
2  doc/recs-fromkv.pod
@@ -5,7 +5,7 @@ recs-fromkv
=head1 recs-fromkv --help-all
Usage : recs-fromkv <args> [<files>]
- Records are generated from charactr input with the form "<record><record-
+ Records are generated from character input with the form "<record><record-
delim><record>...". Records have the form "<entry><entry-delim><entry>...".
Entries are pairs of the form "<key><kv-delim><value>".
View
2  lib/App/RecordStream.pm
@@ -22,7 +22,7 @@ started with RecordStream
=cut
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Accumulator.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Accumulator;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
sub accept_record {
my $this = shift;
View
2  lib/App/RecordStream/Aggregator.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Aggregation.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Aggregation;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
# marker for aggregators (used in isa checks)
View
2  lib/App/RecordStream/Aggregator/Average.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Average;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Concatenate.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Concatenate;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Correlation.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Correlation;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Count.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Count;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/CountBy.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::CountBy;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Covariance.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Covariance;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/DistinctCount.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::DistinctCount;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/First.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::First;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/FirstRecord.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::FirstRecord;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/InjectInto.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::InjectInto;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use App::RecordStream::Aggregator;
View
2  lib/App/RecordStream/Aggregator/InjectInto/Field.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::InjectInto::Field;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Last.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Last;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/LastRecord.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::LastRecord;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/MapReduce.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::MapReduce;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/MapReduce/Field.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::MapReduce::Field;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/MapReduce/FieldSet.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::MapReduce::FieldSet;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Maximum.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Maximum;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Minimum.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Minimum;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Mode.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Mode;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Ord2Bivariate.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Ord2Bivariate;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Ord2Univariate.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Ord2Univariate;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Percentile.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Percentile;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/PercentileMap.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::PercentileMap;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/RecordForMaximum.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::RecordForMaximum;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/RecordForMinimum.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::RecordForMinimum;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Records.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Records;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/StandardDeviation.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::StandardDeviation;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Sum.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Sum;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/UniqConcatenate.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::UniqConcatenate;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/ValuesToKeys.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::ValuesToKeys;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Aggregator/Variance.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Aggregator::Variance;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/DBHandle.pm
@@ -1,6 +1,6 @@
package App::RecordStream::DBHandle;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Executor.pm
@@ -3,7 +3,7 @@
package App::RecordStream::Executor;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/InputStream.pm
@@ -72,7 +72,7 @@ streams are exhausted
=cut
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/KeyGroups.pm
@@ -1,5 +1,5 @@
package App::RecordStream::KeyGroups;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/KeySpec.pm
@@ -20,7 +20,7 @@ This class knows out to look up a keyspec in a datastructure
=cut
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/LRUSheriff.pm
@@ -1,6 +1,6 @@
package App::RecordStream::LRUSheriff;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/annotate.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::annotate;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/chain.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::chain;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/collate.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::collate;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/delta.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::delta;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/eval.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::eval;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/flatten.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::flatten;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/fromatomfeed.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::fromatomfeed;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/fromcsv.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::fromcsv;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/fromdb.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::fromdb;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/fromkv.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::fromkv;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/frommongo.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::frommongo;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/frommultire.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::frommultire;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/fromps.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::fromps;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/fromre.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::fromre;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/fromsplit.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::fromsplit;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/fromtcpdump.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::fromtcpdump;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/fromxml.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::fromxml;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/generate.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::generate;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/grep.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::grep;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/join.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::join;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/normalizetime.pm
@@ -6,7 +6,7 @@ BEGIN {
$Date::Manip::Backend = 'DM5';
}
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/sort.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::sort;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/tocsv.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::tocsv;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/todb.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::todb;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/togdgraph.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::togdgraph;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/tognuplot.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::tognuplot;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/tohtml.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::tohtml;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/topn.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::topn;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/toprettyprint.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::toprettyprint;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/Operation/toptable.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::toptable;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/totable.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::totable;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Operation/xform.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Operation::xform;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
View
2  lib/App/RecordStream/OptionalRequire.pm
@@ -19,7 +19,7 @@ BEGIN { require App::RecordStream::OptionalRequire qw(optional_require); optiona
=cut
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/OutputStream.pm
@@ -34,7 +34,7 @@ recs processes.
=cut
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Record.pm
@@ -150,7 +150,7 @@ records.
=cut
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Site.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Site;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
2  lib/App/RecordStream/Test/OperationHelper.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Test::OperationHelper;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
View
7 lib/App/RecordStream/Test/Tester.pm
@@ -1,6 +1,6 @@
package App::RecordStream::Test::Tester;
-our $VERSION = "4.0.3";
+our $VERSION = "4.0.4";
use strict;
use warnings;
@@ -52,8 +52,9 @@ sub test_stdin {
my $input = shift;
my $output = shift;
- # Re open stdin to the given input
- open(STDIN, "-|", "echo", "-n", $input) || ok(0, "Cannot open echo?!");
+ # Re-open stdin to the given input
+ close(STDIN) or die "Cannot close STDIN: $!";
+ open(STDIN, "<", \$input) or die "Cannot re-open STDIN to string ref: $!";
return App::RecordStream::Test::OperationHelper->do_match(
$this->{'OPERATION'},

No commit comments for this range

Something went wrong with that request. Please try again.