perl test 5.8 compatible ・ 122ccec ・ Gitprep

Code
Issues
1
Pull request
0
Wiki
Members

- perl test 5.8 compatible;
- Browse files
- Yuki Kimoto commited on 2013-05-27
- 1 parent 26c6e6d
  
  commit 122ccec844deff1bb462f97b68bf982f2c967a5e

Showing 2 changed files with 11 additions and 0 deletions

xt/basic.t

@@ -23,6 +23,12 @@ my $t = Test::Mojo->new($app);
 my $user = 'kimoto';
 my $project = 'gitprep_t';
 
+# For perl 5.8
+{
+  no warnings 'redefine';
+  sub note { print STDERR "# $_[0]\n" unless $ENV{HARNESS_ACTIVE} }
+}
+
 note 'Home page';
 {
   # Page access

xt/user.t

View

@@ -22,6 +22,11 @@ my $rep_home = $ENV{GITPREP_REP_HOME} = "$FindBin::Bin/user";
 
 use Gitprep;
 
+# For perl 5.8
+{
+  no warnings 'redefine';
+  sub note { print STDERR "# $_[0]\n" unless $ENV{HARNESS_ACTIVE} }
+}
 
 note 'Start page';
 {

●	xt/basic.t	+6
●	xt/user.t	+5

...	...	@@ -23,6 +23,12 @@ my $t = Test::Mojo->new($app);
23	23	my $user = 'kimoto';
24	24	my $project = 'gitprep_t';
25	25
	26	+# For perl 5.8
	27	+{
	28	+ no warnings 'redefine';
	29	+ sub note { print STDERR "# $_[0]\n" unless $ENV{HARNESS_ACTIVE} }
	30	+}
	31	+
26	32	note 'Home page';
27	33	{
28	34	# Page access

...	...	@@ -22,6 +22,11 @@ my $rep_home = $ENV{GITPREP_REP_HOME} = "$FindBin::Bin/user";
22	22
23	23	use Gitprep;
24	24
	25	+# For perl 5.8
	26	+{
	27	+ no warnings 'redefine';
	28	+ sub note { print STDERR "# $_[0]\n" unless $ENV{HARNESS_ACTIVE} }
	29	+}
25	30
26	31	note 'Start page';
27	32	{