Go to:
Gentoo Home
Documentation
Forums
Lists
Bugs
Planet
Store
Wiki
Get Gentoo!
Gentoo's Bugzilla – Attachment 360484 Details for
Bug 451032
Example files for Emacs test plans
Home
|
New
–
[Ex]
|
Browse
|
Search
|
Privacy Policy
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
Example file for app-emacs/cperl-mode
example.pl (text/plain), 794 bytes, created by
Ulrich Müller
on 2013-10-09 11:02:37 UTC
(
hide
)
Description:
Example file for app-emacs/cperl-mode
Filename:
MIME Type:
Creator:
Ulrich Müller
Created:
2013-10-09 11:02:37 UTC
Size:
794 bytes
patch
obsolete
>#!/usr/bin/perl > >eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' > if 0; # not running under some shell > ># Computes and prints to stdout the CRC-32 values of the given files > >use strict; >use lib qw( blib/lib lib ); >use Archive::Zip; >use FileHandle; > >my $totalFiles = scalar(@ARGV); >foreach my $file (@ARGV) { > if ( -d $file ) { > warn "$0: ${file}: Is a directory\n"; > next; > } > my $fh = FileHandle->new(); > if ( !$fh->open( $file, 'r' ) ) { > warn "$0: $!\n"; > next; > } > binmode($fh); > my $buffer; > my $bytesRead; > my $crc = 0; > while ( $bytesRead = $fh->read( $buffer, 32768 ) ) { > $crc = Archive::Zip::computeCRC32( $buffer, $crc ); > } > printf( "%08x", $crc ); > print("\t$file") if ( $totalFiles > 1 ); > print("\n"); >}
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 451032
:
334872
|
334874
|
334876
|
334878
|
334880
|
334882
|
334884
|
334886
|
334888
|
334890
|
334892
|
334894
|
334896
|
334898
|
334900
|
334902
|
334904
|
334906
|
334908
|
334910
|
334912
|
334914
|
334916
|
334918
|
334920
|
334922
|
334924
|
334926
|
334928
|
334930
|
334932
|
334934
|
334936
|
334938
|
353472
|
353474
|
353476
| 360484 |
370044