rpms/perl/F-13 perl-update-Safe.patch,1.1,1.2

[Marcela Mašláňová]

Author: mmaslano

Update of /cvs/pkgs/rpms/perl/F-13
In directory cvs01.phx2.fedoraproject.org:/tmp/cvs-serv13009

Modified Files:
	perl-update-Safe.patch 
Log Message:
Fix test for Safe module.


perl-update-Safe.patch:
 Safe.pm           |  310 ++++++++++++++++++++++++++++++++++++++++--------------
 t/safe1.t         |    4 
 t/safe2.t         |    4 
 t/safe3.t         |    4 
 t/safeload.t      |    4 
 t/safeops.t       |   10 -
 t/safesort.t      |   56 +++++++++
 t/safeuniversal.t |   13 --
 t/safeutf8.t      |   46 ++++++++
 t/safewrap.t      |   39 ++++++
 10 files changed, 383 insertions(+), 107 deletions(-)

Index: perl-update-Safe.patch
===================================================================
RCS file: /cvs/pkgs/rpms/perl/F-13/perl-update-Safe.patch,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- perl-update-Safe.patch	21 Jul 2010 15:13:53 -0000	1.1
+++ perl-update-Safe.patch	23 Jul 2010 13:18:17 -0000	1.2
@@ -639,7 +639,7 @@ diff -urN perl-5.10.1/ext/Safe/t.sec2/sa
  }
  
 -open my $fh, '<', '../opcode.pl' or die "Can't open opcode.pl: $!";
-+open my $fh, '<', '../../opcode.pl' or die "Can't open opcode.pl: $!";
++open my $fh, '<', '../opcode.pl' or die "Can't open opcode.pl: $!";
  while (<$fh>) {
      last if /^__END__/;
  }