source: trunk/dports/perl/p5-pdl/files/patch-IO_Dumper.pm @ 21494

Last change on this file since 21494 was 21494, checked in by eridius@…, 13 years ago

Massive update to svn properties on files:
All patchfiles have svn:eol-style removed.
All files that are not in fact able to be executed have svn:executable removed
All binary files have svn:eol-style removed (and are probably corrupt)
All binary files have svn:mime-type set to application/octet-stream
All files which are not patchfiles or binary files have svn:eol-style set to native
All Portfiles have svn:eol-style set to native and svn:executable removed

File size: 720 bytes
Line 
1--- IO/Dumper.pm.orig   Fri Jan 17 01:27:26 2003
2+++ IO/Dumper.pm        Thu May 20 18:24:41 2004
3@@ -395,7 +395,7 @@
4 sub PDL::IO::Dumper::uudecode_PDL {
5     my $lines = shift;
6     my $out;
7-    my $fname = "/tmp/tmp-$$.fits";
8+    my $fname = "tmp-pdl_io_dumper-$$.fits";
9     if($PDL::IO::Dumper::uudecode_ok) {
10        open(FITS,"|uudecode");
11        $lines =~ s/^[^\n]*\n/begin 664 $fname\n/o;
12@@ -458,9 +458,9 @@
13     else { 
14       
15       ##
16-      ## Write FITS file, uuencode it, snarf it up, and clean up /tmp
17+      ## Write FITS file, uuencode it, snarf it up, and clean up tmpfiles
18       ##
19-      my($fname) = "/tmp/$$.fits";
20+      my($fname) = "tmp-pdl_io_dumper-$$.fits";
21       wfits($_,$fname);
22       my(@uulines);
23 
Note: See TracBrowser for help on using the repository browser.