File: 01_used_only_once.diff

package info (click to toggle)
libclass-dbi-perl 3.0.15-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 548 kB
  • ctags: 251
  • sloc: perl: 2,118; makefile: 6
file content (11 lines) | stat: -rw-r--r-- 462 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
--- orig/libclass-dbi-perl-3.0.15/t/18-has_a.t	2005-09-23 12:32:43.000000000 +0200
+++ libclass-dbi-perl-3.0.15/t/18-has_a.t	2006-11-20 11:51:48.000000000 +0100
@@ -34,7 +34,7 @@
 	ok $pj = $btaste->Director, "Bad taste now hasa() director";
 	isa_ok $pj => 'Director';
 	{
-		no warnings 'redefine';
+		no warnings 'once';
 		local *Ima::DBI::st::execute =
 			sub { ::fail("Shouldn't need to query db"); };
 		is $pj->id, 'Peter Jackson', 'ID already stored';