[p5sagit/p5-mst-13.2.git] / ext / IO-Compress / examples / io / bzip2 / bzstream

#!/usr/local/bin/perl

use strict ;
use warnings ;
use IO::Compress::Bzip2 qw(:all);

bzip2 '-' => '-'
  or die "bzstream: $Bzip2Error\n" ;
Commit	Line	Data
319fab50	1	#!/usr/local/bin/perl
	2
	3	use strict ;
dc82791d	4	use warnings ;
319fab50	5	use IO::Compress::Bzip2 qw(:all);
	6
	7	bzip2 '-' => '-'
	8	or die "bzstream: $Bzip2Error\n" ;
	9